my %lookupHash = ();
while(my $line=<CHFILE>) {
    chomp $line;
    my @fields = split(/\|/, $line);
    $lookupHash{ $fields[1] } = ();        # $field[1] = 2nd field
    #$lookupHash{ $fields[1] } = $line;    # need entire line?
}