#!/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],

            };


}