ランダム関数

1～100までの整数をランダムに出力する（一度出た数字は出力しない）
ランダム関数は0～指定した数未満の数字を出力する
指定しない場合は0～1未満の数字を出力する

#!/usr/bin/perl

for($i=0;$i<100;$i++){

for($y=int(rand(100));$ARGV[$y]==$y+1;$y=int(rand(100))){
}
$ARGV[$y]=$y+1;
print"$ARGV[$y]\n";
}