【Perl 】初心者コーナーPart5

my $num;
my $nums;

srand;

for (0 .. $place - 1) {
while (1) {
$num = int(rand(9)) + 1
if ($nums !~ /$num/) {
$nums .= "\0$num";
last;
}
}
}

my @rand = split(/\0/,substr($nums,1));

なんか汚い・・