use strict;
use warnings;
open (F1, "<new4.txt") or die;
open (F2, ">new5.txt") or die;
while (<F1>) {
	open (F3, "<new3.txt") or die;
	my $lines = <F3>;
	print F2 if (/$lines/);
	close (F3);
}
close (F1);
close (F2);