my @line = split (/,/,$line);