while (<SRC>) {
   @{ $prod{$1} } = split('\|', $2) if m/^(.+?)\|(.+)/;
}