Help for this page
Select Code to Download
Select
or
download this
while (my ($k, $v) = each %hash) { print "$k\t$v\n"; }