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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;


my @AoH;


for my $row ( 0..$#data ) {


 push @AoH, {

              NAME => $data[0],
	      DOB  => $data[1],
              ADDRRESS => $data[2],

            };


}