Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print $sortedUniq,"\n";
}

                 Rate array_diff array_same  hash_diff  hash_same
...
    hash_diff  1092/s        19%         8%         --       -11%
    hash_same  1229/s        34%        21%        13%         --

#!/usr/bin/perl -w
...
    hash_diff  => sub { hash(\@different)},
});