[Perl] Print Hash

sub PrintHash(\%) {
    my %hash = %{(shift)};

    foreach my $key (keys %hash) {
        print "key : $key, value : $hash{$key}\n";
    }
}