my $fh;
if (defined (my $list = shift @ARGV)) { open $fh, "<", $list; }
else { $fh = \*STDIN; }
my %black = ();
while (<$fh>) { chomp; $black{$_} = 1; }
my $fh;
if (defined (my $list = shift @ARGV)) { open $fh, "<", $list; }
else { $fh = \*STDIN; }
my %black = ();
while (<$fh>) { chomp; $black{$_} = 1; }