Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
close $in;

print "$_ => $h->{$_}\n" for keys %$h;