my @cols = split /,/$line;