#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
my $anzahl = 1000;
my %hash;
for (1..$anzahl) {
	$hash{'foo' . $_} = 'test';
}
print "Pause, fertig definiert\n";
sleep 5;
print "Laeuft weiter\n";
my $start = time ();
for my $nr (1..$anzahl) {
#	$hash{'foo' . $nr} = "test$nr"; # Variante direkt
	%hash = &test (\%hash,$nr); # Variante mit sub
}
print "Laufzeit: " . (time () - $start) . " Sekunden\n";
sub test {
	my %hash = %{$_[0]};
	my $nr = $_[1];
	$hash{'foo' . $nr} = "test$nr";
	return %hash;
}