{
my %hash;
for my $i (1 .. 500000) {
        $hash{$i}=1;
}
}
sleep 1;

{
my %hash;
for my $i (1 .. 500000) {
        $hash{$i}=1;
}
}
sleep 1;


{
my %hash;
for my $i (1 .. 500000) {
        $hash{$i}=1;
}
}
sleep 1;

...

##</code><code>##

{
my %hash;
for my $i (1 .. 500000) {
        $hash{$i}=1;
}
undef %hash;
}
sleep 1;

...