my @slice;
...
while(<INFILE1>) {
     chomp;
     my @array = split ('\t', $_);
     my @slice = @array[0,1,2];
}