use strict;
use warnings;
my $fh;
my $myfile = '/path/to/file/a';
unless (open($fh,"<",$myfile)) {
  die "Can't open $myfile: $!\n";
}
my %delete_words = ();
while (<$fh>) {
  chomp;
  $delete_words{$_}++;
}
close($fh);