Perl - Rand

Estoy utilizando la funcion Rand;
for ($j=1;$j<=10;$j++) {
@sol[j]=int(rand 30)+1;
print "@sol[j]\n";
}
pero lo que deseo es que los números seleccionados aleatoriamente no se repitan? he visto una función "truly_random_value" en un tutorial, según éste se puede iobtener más de 20.000 números sin que se repita ninguno.
¿Alguien podría ayudarme?Muchas gracias de antemano.

for $j (1..30) {
do {
$sol=int(rand 30)+1;
} while $used[$sol]++;
print "$sol\n";
}

Muchas gracias,va perfercto...