for my $h(@ahoa) {
   for (keys(%$h)){
       print "$_ => ";
       print "@{$h->{$_}}\n";
   }
   print "\n";
}

##</code><code>##

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