open F1, "file1" or die $!;
while (my $find = <F1>) {
    chomp $find;
    
    open F2, "file2" or die $!;
    while (<F2>) {
        print if /$find/ .. /frame-relay/;
    }
}