#!/usr/bin/perl
use warnings;
use strict;
use Devel::OpProf qw'profile print_stats zero_stats';

my @source = ( 1..10_000 );
my @dest = ();

#measure the map
profile(1);
@dest = map { $_ * 10 } @source;
profile(0);

print "*** map ***\n";
print_stats();
zero_stats();
@dest = ();

#measure the foreach
profile(1);
foreach(@source){
    @dest = $_ * 10;
}
profile(0);

print "\n*** foreach ***\n";
print_stats();
zero_stats();
@dest = ();

#measure the for
profile(1);
push @dest, $_ * 10 for @source;

profile(0);

print "\n*** for ***\n";
print_stats();