Select Code to Download

  sub dump_hash(\%) {
    my $hr = shift;
...

  my %hash = ( ...whatever... );
  dump_hash(%hash);