Help for this page

Select Code to Download

Select or download this

while (my ($k, $v) = each %hash) { 
    print "$k: $v\n" 
}