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

##</code><code>##

unless ($found) { ...