#!/usr/bin/perl

print "creating hash\n";
$k = "aaaaaaaa";
for (0..1000000) {  $hash{$k++} = $_ };
print "sleeping\n";
sleep (10);
print "copying\n";
foo(\%hash);
#bar(%hash);
#baz(%hash);
print "done";
exit;

sub foo { print "sleeping in foo\n"; sleep(10); }
sub bar (\%) { print "sleeping in bar\n"; sleep(10); }
sub baz (%) { print "sleeping in baz\n"; sleep(10); }