#ADD this to the previous code...
use Data::Dumper;
print Data::Dumper->Dump([\%hash1],['FIRST HASH']),"\n";
print Data::Dumper->Dump([\%hash2],['SECOND HASH']),"\n";
print Data::Dumper->Dump([\%hash3],['MERGED HASH']),"\n";

##</code><code>##