Select Code to Download

use strict;
use Data::Dumper;
...
print Dumper(\%mergedhash);

my %muthash = (
        "key1" => 1,
...
}
print Dumper(\%mergedhash);