if ($PARTS eq $ordnum) { ...