Help for this page
$names12[$i]=@myNames[$i].','; #should be $names12[$i]=$myNames[$i].',';
# execute as perl -n program.pl < myTextFile ... print join(',', @names12); }