@fields = split(/\,/, $line);