while (<FH1>) {
	@num=<FH1>;}
close FH1;

foreach $num (@num) {
		chomp $num;
while (<FILE2>) {
	@marks = split(/\t/, $_);	
	$x=$marks[0];
	$y=$marks[1];
	
	if ($num - $y < 1) {
		print OUT "$x\n";		
		}
	}
}