while (<CSV>) {
  chomp($_);
  @row = split /,/, $_, -1;
  push @data, \@row;
}