while( <SRC> ) {
  chomp;
  my( $key, @row ) = split( /\|/, $_ );
  $prod{ $key } = \@row;
}