#!perl -w
use strict;
use Benchmark;

Benchmark::cmpthese(-5, {
    'foreach' => sub { my $sum=0; foreach (1..100) { foreach (1..100) { $sum++ }}},
    'map' => sub {my $sum=0; map { map { $sum++ } (1..100) } (1..100) },
});

##</code><code>##

------------------------------

         Rate     map foreach
map     345/s      --    -43%
foreach 603/s     75%      --