my @arr = split(/,/, $line );
my $row = \@arr;