Una manita con esto...

[SpiceMan]

Código:

@array = ('uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve','diez');

$bla2 = $bla = int rand @array;
while (($bla2 == $bla) && $#array > 1) { $bla2 = int rand @array }

print "\$bla: $bla - \$array[$bla]: $array[$bla]\n";
print "\$bla2: $bla2 - \$array[$bla2]: $array[$bla2]\n";