use strict;                          
 use warnings;                        
                                      
 use Benchmark qw(cmpthese);          
                                      
                                      
 my @orig = ("\n") x 100000;          
                                      
                                      
 sub mychomp {                        
     my $data = shift;                
     my @copy = @$data;               
     chomp for @copy;                 
 }                                    
                                      
 sub mychop {                         
     my $data = shift;                
     my @copy = @$data;               
     chop for @copy;                  
 }                                    
                                      
 sub mynada {                         
     my $data = shift;                
     my @copy = @$data;               
     1 for @copy;                     
 }                                    
                                      
                                      
 cmpthese -10, {                      
     chomp   => sub {mychomp(\@orig)},
     chop    => sub {mychop(\@orig)}, 
     nada    => sub {mynada(\@orig)}, 
 };