my @data = ( ["John","10/30","Main Street"],
             ["Mary","6/1","Oak Street"]
	     # more data here
	    );
	  
foreach (@data) {
  push @AoH, { NAME => $_,
               DOB  => $_,
	       ADDRESS => $_,
	     }
}