my $line ;
my (%resultarray,$part1,$part2);
my @AoH=();

while($line = <FILE>) {

    ...

    push @AoH, \%resultarray;
}