while (<DATA>) {
  chomp;
  push @record, [split(/,/, $_, -1)];
}