As you are new to Perl I want to comment at least on one line in your code:

@names12[$i]=@myNames[$i]+',';
[download]

• When you want to access one element in an array @names12, the correct syntax is $names[$i] as any individual element is a scalar. So you have to change @ to $.
• To concatenate two strings, you use the . operator, like $string1 . $string2