Jason wrote:
: while (<NAMES>) {# read the names into a hash
:      $names{$_} = 1;
: }

Maybe do a chomp() in here?

while (<NAMES>) {
        chomp;
        $names{$_} = 1;
}

Otherwise, it might be trying to match the newline
(which Perl retains).

-- tdk

Reply via email to