おいおまいら。ベンチマークとってみましたよ。

下準備↓
== makedata.pl
use strict;
for my $i (1..20000) {
　　print "@{[$i*2]}\t", crypt($i, reverse $i), "\n";
}
== console
%perl makedata.pl > data.txt

（長いので続く）