Select Code to Download

use strict;
use warnings;
...
print Dumper(\%hash1);
print "\n";
print Dumper(\%hash2);

#!/usr/local/bin/perl
use Data::Dumper;
...
        print "$key => $value\n";
    }
}