Select Code to Download

use strict;
use warnings;
...
for my $hashref (@AoH) {
    print "$_ => $$hashref{$_}\n" for (keys %$hashref);
}

$ perl  aoh.pl
c => c1
...
h => h1
g => g1
i => i1