#!/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;