while ( <> ) {
  #$rec = {};
  $rec = ();
  for $field ( split ) {
    ($key, $value) = split /=/, $field;
    #$rec->{$key} = $value;
    $rec{$key} = $value;
  }
  push @AoH, $rec;   #?
}