use strict;
use warnings;
use Benchmark ('timethese');

my $size = 10000;
my @stats = map { [ "a$_" => 0] } (0..$size);

sub rewrite_array {
    @stats = map { $_->[0] eq 'a3333' ? [$_->[0], $_->[1] + 1] : $_ } @stats;
}

sub loop {
    for my $item ( @stats ) {
        $item->[1]++ if $item->[0] eq 'a3333';
    }
}

sub void_array {
    map { $_->[0] eq 'a3333' ? [$_->[0], $_->[1] + 1] : $_ } @stats;
}

timethese (10000, {
    '1. Array neu erstellen    ' => \&rewrite_array,
    '2. Schleife ausformuliert ' => \&loop,
    '3. Array im leeren Kontext' => \&void_array,
});

Benchmark: timing 10000 iterations of 
 1. Array neu erstellen    ,
 2. Schleife ausformuliert ,
 3. Array im leeren Kontext...
1. Array neu erstellen    : 18 wallclock secs (17.64 usr +  0.00 sys = 17.64 CPU) @ 566.89/s (n=10000)
2. Schleife ausformuliert :  8 wallclock secs ( 7.97 usr +  0.00 sys =  7.97 CPU) @ 1254.71/s (n=10000)
3. Array im leeren Kontext:  8 wallclock secs ( 8.54 usr +  0.01 sys =  8.55 CPU) @ 1169.59/s (n=10000)