#!/usr/bin/perl

#can use prototype to get around passing hashrefs to subs 

my_sub(%hash)   #prototype for my_sub 

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