Select Code to Download

use Sort::Key::Maker sort_num_str =>
    sub { int($_), $_ }, qw(int str);

salva@cabo:/tmp$ perl /tmp/skm.pl 100
          Rate     GRT    sort S::K::M
...
sort      3.38      --    -43%    -49%
GRT       1.92     76%      --    -10%
S::K::M   1.73     96%     11%      --