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