Help for this page

Select Code to Download

Select or download this

my %hash;

while (my ($key, $value) = each %hash) {
   ...
}