Select Code to Download

 use strict;                          
 use warnings;                        
...
     chop    => sub {mychop(\@orig)}, 
     nada    => sub {mynada(\@orig)}, 
 };

        Rate chomp  chop  nada
chomp 87.8/s    --   -4%  -20%
chop  91.6/s    4%    --  -16%
nada   109/s   25%   20%    --