確定情報じゃない（ ruby の方 ）からロムってたんだが。
- ruby のソートはクイックソート（多分、間違ってたら指摘よろ）
- perl のソートは ( perldoc -f sort / perldoc sort に書いてある。確定）
　- 5.6 以前は quick sort
　- 5.8 以降は mergesort
アルゴリズムが違う可能性があるんだよ。
そこまで速度に固執する理由が判らんが、
use sort '_quicksort' ;
宣言して sort { $a <=> $b } @a あたりしてみたら如何？