sub loop_through_hash{
my($hash) = @_;
foreach $k (keys %hash){
print "$k => $hash{$k}
}#end foreach loop
}#end loop_through_hash