...
while ( <DATA> ) {
        ...
        for $field ( split ) {
        ...
        }
        print Dumper( \%rec ) ;

        push @AoH, \%rec;
}
...