Perl - Sub/Hash

#!/usr/bin/perl
use strict;
use warnings;

my %hash;

$hash{'perl'} = ' =) ';

&show(\%hash);

sub show(){
 
    my ($hash) = @_;

    foreach my $key (keys %hash){
        print "$hash->{$key}";
    }

}

Result :

$perl blog.pl 

=)