Select Code to Download

bannor:~/work/perl/monks$ perl 971240.pl 1000000
          s/iter  stunpack   stsubst plainsort
...
    map { [ $_, unpack "a8a6" ] }
    @data;
}