Select Code to Download

use Data::Dumper;

...

print 'key/value pairs: ', scalar keys %hash;
print Dumper \%hash;