<perl>
my %hash; 
for(my $i = 1; $i <= 30000; $i++) {
$hash{$i} = $i*2;
}
out "Zeit nach hash erzeugung  ".runtime."<BR>";
my $tempzeit = runtime;
if ($metode eq "foreach"){
out "<h1>foreach</h1>";
foreach (keys %hash){
out "$_ => $hash{$_}#";
} 
}
out "<BR>Zeit nach foreach  ".runtime."<BR>";
if ($metode eq "while"){
while (($k,$v) = each %hash) {
out "$k => $v#";
}
}
out "<BR>Zeit nach while  ".runtime."<BR>";
$tempzeit = (runtime) - $tempzeit;
out "<h2>Zeit $tempzeit ms";  
</perl>
<BR><BR>
<a href="?metode=foreach">foreach</a>&nbsp;&nbsp;<a href="?metode=while">while</a>