#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark 'cmpthese';

my @x = 0 .. 99;

cmpthese 1e6 => {
    map_expr => sub { my @y = @x; map ++$_, @y; return },
    map_block => sub { my @y = @x; map { ++$_ } @y; return },
    for => sub { my @y = @x; ++$_ for @y; return },
};