#! C:\Perl\bin\perl -w

open (LIST, "List.txt" );
@mylist = (<LIST>);
open (FILE, "FILE.txt" );
@myfile = (<FILE>);

foreach $file(@myfile)
	{
 	foreach $list(@mylist)
 	{
 		@temp = split (/\t/, $file);
 		chomp @temp;
 			if ( $temp[1] eq $list )
 				{print ("$file")}
 		}
 	}