foreach my $key (keys %$hash_ref) {
  print "I have $key $hash_ref->{$key}\n";
}