use strict;
use Benchmark qw(cmpthese);

cmpthese (-30, {
   a => 'foreach (1..$n){$m = $_}',
   b => '$m = $_ for (1..$n)',
   c => 'for ($i=1;$i<$n+1;$i++) {$m = $i}'
});

##</code><code>##

use strict;
use Benchmark;
my ($i, $m);
my $t0 = new Benchmark;
$_ = "123:45678";
my $n = 5000000;

# snippet goes here.

my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
print "x: ",timestr($td),"\n";