Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
@{$AoH[@AoH]}{qw{NAME DOB ADDRESS}} = @$_ for @data;

dd \@AoH;

Select or download this

[
  { 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"
+ },
]