Select Code to Download

#!/usr/local/bin/perl
use strict;
...
push @{$hash{'aa'}},{'key4'=>4};  #add another key
@array_keys = keys %hash;         #update the array
print "@array_keys\n";

for (@array_keys){
        for my $element ($hash{$_}){
...
                print "@val\n";
                }
        }

use strict;
use warnings;
...
        }

print Dumper(\%hash_output);