my %names;
while (<>) {
        chomp;
        my @line = split /\|/;
        next unless defined $line[2];
        $names{$line[0]} = [@line[1,2]];
}