Select Code to Download

my_sub ( $value, \%myhash );

my ( $value, $hashref ) = @_;
foreach my $key ( keys %$hashref )
{
  print "$key = $$hashref{'$key'}\n";
}