$names12[$i]=@myNames[$i].',';
#should be 
           $names12[$i]=$myNames[$i].',';
[download]

Actually there's lots more issues in your program than this one. Its really a case of if you want to solve this properly, don't start from where you are at present! :-)

Why are you splitting on tabs when you indicated you wanted to split out words before? The answers given in your previous question do things much more efficiently than your code, so what is wrong with them?

Please give an example of the text you want to split and what you want it to look like at the end

Something roughly like this will put all your data in @names12:

# execute as
perl -n program.pl < myTextFile

#!/usr/bin/perl
# get the words from current text block and push into array....
while (/(\w+)/g) {
     push @names12, $1;
}

END {
    # your array contains words, now add comma to printout
    print join(',', @names12);
}
[download]