foreach $bkey (sort keys %build_file) { if (exists $file_list{$bkey}) print "YES\n"; } else{ print "NO\n"; } }