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}'
});