Help for this page

Select Code to Download

Select or download this

my $last = each %hash;
while (defined $last) {
...
    }
    $last = $next;
}