#!/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;

##</code><code>##

[
  { ADDRESS => "Main Street", DOB => "10/30/2011", NAME => "JOHN JR" },
  { ADDRESS => "Broke Street", DOB => "11/30/1999", NAME => "JOE DOE" },
  { ADDRESS => "Pearl Street", DOB => "06/01/2014", NAME => "MARY DEE" },
]