>>469

> @a = sort @a
を
my @result;
@result = sort @a;
に変更してみ。

確か古いバージョンのsortはソート対象の配列と
結果受け取りの配列が同じだと極端にパフォーマンスが落ちるってのがあったと思う。

あと演算子を指定しないとデフォルトでは文字列比較になるから
数値比較する場合は
@result = sort {$a <=> $b} @a;
ってしないとソート結果がおかしくなるぞ。

コマンドプロンプト起動して
perldoc -f sort
でsort関数のマニュアルがでるからそれ見れ