my @Arrays;
my $counter=0;
open my $IN, '<', $myfile or die;
while (my $line = <$IN>) {
   chomp $line;
   ++$counter;
   
   # Put fields in Array[counter]
   $Arrays[$counter] = [ split /\t/, $line ];

   # Use a single field
   print "Third column: $Arrays[$counter][2]\n";
}