@data = ( ["John","10/30","Main Street"],
          ["Mary","6/1","Oak Street"] );

foreach my $aref (@data) {
  push @AoH, { NAME => $aref->[0], 
...