Select Code to Download

#!/user/bin/perl -w
use warnings;
...

my @bla = (%hash, %hash2);

foreach (keys $hash){
    print $_ . "\n";
}

foreach (keys $bla[0]){
    print $_ . "\n";
}