open FIN, $inputFile or die $!;
while (my $lines  = <FIN>) {
   chomp $sword;
   unless ($lines =~ /$sword/i) {
        print "$sword\n";
   }
}
close FIN;