note
torres09
<code>#!/usr/local/bin/perl
open (MYFILE, 'test1234.txt');
while (<MYFILE>)
{
chomp;
@myNames= split(/\t/, $_);
$i=0;
print "@myNames \n";
while($i<=$#myNames)
{
$names12[$i]=@myNames[$i].',';
$i++;
}
}
print "@names12 \n";
exit; </code>
<p> this is what i did , so if you can point out the mistakes , it will help </p>
1037390
1037391