my %hash;
while ( <FILE> )
{
    my ( $key, $value ) = split /\|/, $_, 2;
    next unless $key;
    $hash{$key} = $value;
}