Select Code to Download

my $line ;
my (%resultarray,$part1,$part2);
...

    push @AoH, \%resultarray;
}

#!/usr/bin/perl
use strict;
...
my $hr2 = \@AoH;
print Dumper $hr2;

#!/usr/bin/perl
use strict;
...

print Dumper \@AoH;