>>95
@array = (1, 10, 5, 100, 12, 3);
@array = sort { $a <=> $b } @array;
foreach(@array) { print "$_\n"; }

こうしたほうが簡単だけど、君の努力は誰もが認めるところだ。