my %h= ( foo => 'bar' );
my $ref= \%h;

while( my( $k, $v )= each %$ref ) {
  print "$k -> $v"
}

__END__
foo -> bar