while (<SRC>) {
   my @row = split(/\|/, $_);
   $prod{$row[0]} = \@row[1..$#row]; #using a slice;
}