Select Code to Download

use Benchmark qw(cmpthese);

...
  copy  => 'my %t = %main::hosts; %t = map { $t{$_} == $main::t_count 
+? ($_, $t{$_}) : ()} keys %t;',
  nada  => 'my %t = %main::hosts;'
});

        Rate  copy   map    or    do slice  nada
copy  1372/s    --  -57%  -57%  -57%  -58%  -78%
...
do    3226/s  135%    2%    0%    --   -0%  -49%
slice 3236/s  136%    2%    0%    0%    --  -49%
nada  6289/s  358%   98%   95%   95%   94%    --