print $prochash;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print $hashref;