# Step 2
my %del;
open my $dellist, '<', $delfile or die "Could not open $delfile: $!\n";
for (<$dellist>) { chomp; $del{$_} = 1; }
close $dellist; # Step 3