The keys function was missing in your example in line 3...

sub printhash {
    my $hash = shift;
    for my $key (keys %{$hash}) {
        print "$key : $hash->{$key}\n";
    }
}
[download]