>>460-461
すみません。具体的には以下のような感じです。処理結果は10回の結果の平均値です。
単純な計測方法なので誤差はあると思いますが…
配列の代入なしで実行した場合はPerlの方が圧倒的に速いのですが
代入処理を入れると一気に遅くなってしまいます…

[環境]
OS: WindowsXP SP2 CPU: Pentium4 2GHz RAM: 1GB
Perl ver: 5.8.3.809 Ruby ver: 1.8.5
[結果]
Perl: 0.078sec (代入なし) 1.391sec (代入あり)
Ruby: 0.219sec
[ソース]
----- Perl -----
$N = 100000;
$s = (times)[0];
srand(time());
@a;
for($i = 0; $i < $N; ++$i){ $a[$i] = rand($N); }
@a = sort(@a); #代入あり
#sort(@a); #代入なし
print((times)[0] - $s);
----- Ruby -----
N = 100000
s = Time.now
srand(Time.now.to_i)
a = []
N.times{ a << rand(N) }
a.sort!
print Time.now - s