#!Perl -w

use Benchmark;
$repetitions = 1000000;
@testArray = (22, 34, 433, 123, 435, 66);

sub typeglobs {
    local *kopie = shift;
    foreach (@kopie) {
        $_ *= 2;
    }
}

sub references {
    my $rarray = shift;
    foreach (@$rarray) {
        $_ *= 2;
    }
}

print "Ueber Referenzen:\n";
timethis($repetitions, "references(\@testArray)");

print "\n\nUeber Typeglobs:\n";
timethis($repetitions, "typeglobs(*testArray)");