while(<FILE1>) {
    my @fields = split /|/;
    $lookup{$fields[1]} = 1;
}