while (<PARTS>) {
  chomp;
  if ($_ eq $ordnum) { ...