my @csv;
while (<$fh>) {
    chomp $_;
    my @p = split /,/, $_;
    push @csv, \@p;
}