Select Code to Download

for my $h(@ahoa) {
   for (keys(%$h)){
...
   }
   print "\n";
}

for my $h (@ahoa) {
    my %deref = %$h;
...
    }
    print "\n";
}