$line = join(',', @line);          
$line =~ s/,,/,/g;
push @all_lines, $line;