$_ = <DATA>;
chomp;
my @hdrs = split /,/;

my @recs;
while (<DATA>) {
  chomp;
  my %rec;
  @rec{@hdrs} = split /,/;
  push @recs, \%rec;
}