Select Code to Download

               Rate  or delete        do      copy     slice       map
or delete 1620746/s         --       -1%      -50%      -71%      -78%
...
     copy 3215434/s        98%       96%        --      -42%      -56%
    slice 5555556/s       243%      238%       73%        --      -24%
      map 7299270/s       350%      345%      127%       31%        --

#!/usr/bin/perl 
use strict;
...
    '    slice' => ' delete @hosts{ grep { $hosts{$_} != $t_count } ke
+ys %hosts }               ',
    '     copy' => ' %hosts = map { $hosts{$_} == $t_count ? ($_, $hos
+ts{$_}) : ()} keys %hosts ',
});