sub gethash (){ $hash{fruit} = peach; $hash{vegetable} = broccoli; $hash{pie} = blueberry; return %hash;}%myhash = gethash;foreach $key (keys %myhash) { print "$key => $myhash{$key}\n";}