while(<SRC>)
{
	$Record = $_;
	@row = split(/\|/, $Record);
     $prod{$row[0]}=[$row[1],$row[2],$row[3]];
}