I don't know exactly what you're trying to do here. However, this may be more what you want:

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