やたー　漏れのはじめてのプログラムだよー
一回ごとに違った結果がでるよー
しかもソートされてるよー

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

$a=rand;
push (@a,$a);

@a=sort {$a <=> $b}@a;
@a=join ("\n",@a);

print @a,"\n";