open(OUTFILE, ">outfile");

open(MYINPUTFILE, "file2");
open(MYINPUTFILE1, "file1");

while (<MYINPUTFILE>) {
        my($line) = $_;
	my $line1 = <MYINPUTFILE1>;
	chomp($line1);
	print OUTFILE if /$line1/ .. /frame-relay/;
   	}

close(MYINPUTFILE);
close(MYINPUTFILE1);