use strict;
use warnings;

use Benchmark qw(:all);

my $n = $ARGV[0];

die "$n NaN" if $n ne int $n or $n <= 0;

our @for = ("test         ") x $n;
our @map = @for;

cmpthese ( $n, {
    'for' => 's/ +$// for @for;',
    'map' => '@map = map{ s/ +$//; $_ } @map;',
} );