Select Code to Download

  print $prochash;

  foreach my $key (keys %{$prochash}){
    print $key,'--',$prochash->{$key},"\n";
  }

foreach my $key( keys %prochash){
  print $key, '--', $prochash{$key},"\n";
}

print $hashref;