use strict;
use Benchmark qw(cmpthese);

my @a1 = (1..100);
cmpthese(-3, {"string" => sub { my @a2 = map "irgendwas $_", @a1 },
          "code"   => sub { my @a2 = map { "irgendwas $_" } @a1; },
         });