while (<>) {
  my %hash = split;
  push @AoH, \%hash;
}