Select Code to Download

if ($PARTS eq $ordnum) {

chomp(@PARTS = <PARTS>);

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

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