supprimer des valeurs numeriques identiques

Bonjour à tous,

Je vous explique mon probleme, je veux une liste de 32 nombres (avec
des chiffres compris de 1 à 60).

Le probleme c'est que dans cette liste je retrouve des nombres
identiques, ce que je ne veux pas.
Mon script bien sur ne fonctionne pas vraiment car je ne teste que le
chiffre precedent si il est identique je relance un nombre pseudo
aleatoire

Quelques pourrait m'aider ??

merci beaucoup

Voici mon script

#!/usr/bin/perl -w

use strict;

print "les participants sont\n";
my @nombres;
for(my $j = 0; $j < 32; $j++) {
$nombres[$j] = int(rand(60) + 1);

if ($nombres[$j]==$nombres[$j-1]) {
$nombres[$j] = int(rand(60) + 1);
print "$nombres[$j]\n";
} else {
print "$nombres[$j]\n";
}
}

Merci de vos reponses

Osiris73