for my $row (@data){
    push @aoh, {
                name => $row->[0],
                dob => $row->[1],
                addr => $row->[2],
              };
}