open (OUT, ">file.csv")
    foreach my $line (@out){
        $line =~ m/(.*?,){10}/;
        my $tmp = $1;
        chomp ($tmp);
        $tmp =~ s/,/;/;
        ... WHAT HERE? ...}
    close (OUT);