Select Code to Download

sub foo {
  my $hash_ref = shift;
  print "$_\n" for values %$hash_ref;
}

sub foo {
  my $hash_ref = shift;
...
    # do something with $key and $val
  }
}