Help for this page

Select Code to Download

Select or download this

sub printhash {
    my $hash = shift;
...
        print "$key : $hash->{$key}\n";
    }
}