my_sub(%hash)

sub my_sub(\%) {
    my $hash_ref = shift;
    map { print "$_ => $$hash_ref{$_} \n" } keys %$hash_ref;
}