Shell Programming and Scripting

use Benchmark 'cmpthese';

sub explicit {
print "\n print and calculate\n";
}

sub new_per_loop {
     for (0..4){
print "\n print the loop \n";
    }
}

cmpthese (10_000, {
                 'Explicit'           => &explicit,
                 'New Array Per Loop' => &new_per_loop,
                            }
      );

    # cmpthese can be used both ways as well
    cmpthese($count, {
'Name1' => '...code1...',
'Name2' => '...code2...',
    });
 
    cmpthese($count, {
'Name1' => sub { ...code1... },
'Name2' => sub { ...code2... },
    });
 
    # ...or in two stages
    $results = timethese($count, 
        {
    'Name1' => sub { ...code1... },
    'Name2' => sub { ...code2... },
        },
'none'
    );
    cmpthese( $results ) ;