Something

foreach $internal (@match_lines)
{
 chop($internal);
 ($pn,$mfg,$onhand,$dc,$pkg,$mpq)=split(/,/,$internal) and $rownumber++;