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