my @fields = split /,/, $line;