use strict;
use warnings;
use Data::Dumper;

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;

for my $row (@data) {
    push @AoH, { NAME => $row->[0], DOB => $row->[1], ADDR => $row->[2]};
}

print Dumper \@AoH;


##</code><code>##

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