if ($PARTS eq $ordnum) {

##</code><code>##

chomp(@PARTS = <PARTS>);

##</code><code>##

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

##</code><code>##

for $PARTS (@PARTS) {
  if ($PARTS eq $ordnum) { # assuming 'eq' is correct here
    $found = 1;
    last;
  }
}