le probabilità sono parecchie.
In questi casi in genere è più comodo usare degli hash al posto dell'array:
ad esempio:
my %numero;
for ($i = 0; $i <= 2; $i++) {
while (1) {
$random = int(rand $numeroMAX) + 1;
if (! exists $numero{$random}) {
$numero{$random} = '';
last;
}
}
}