Welcome to the Monastery.

See: How do I compose an effective node title?.

The code you posted has compile errors. Did you mean to have an "if" to match your "else"?

You have a scoping problem. Those are two different @slice arrays.

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

You probably want to get rid of my inside your while loop and maybe you need to push. My guess is that your foreach loop never loops through your @slice array since it is empty.