#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;

my @data = (
    [ "JOHN JR", "10/30/2011", "Main Street"],
    [ "JOE DOE", "11/30/1999", "Broke Street"],
    [ "MARY DEE", "06/01/2014", "Pearl Street"]
);

my @AoH;

@{$AoH[@AoH]}{qw{NAME DOB ADDRESS}} = @$_ for @data;

dd \@AoH;