#!/local/bin/perl -w

use strict;
 
my $build = '';

print "Which build (enter full path name)? \n" ;

chomp($build = <STDIN>);

my @build_file = ();
my @file_list = ();

open(FILE, "</home/me/stuff/input.txt") 
        || die "Could not open input file\n";
while(my $Line = <FILE>){
        push (@file_list, $Line);
}
close FILE;

open(BUILD_FILE, '<' . $build) || die "Could not open input file\n";
while(my $Line = <BUILD_FILE>){
        push (@build_file, $Line);
}
close BUILD_FILE;
  
foreach my $bkey (sort @build_file) {
    foreach my $line(@file_list){
            if (index($line, $bkey) >= 0){
               print "YES\n";
            }
            else{
            print "NO\n";
            }
    }
}