my ($key,$value) = split(/\|/,$_,2);
next if $seen{$value};
print "$key: $value\n";
$seen{$value}++;