open(PARTS, $partlist) || die "Can't open file: $!";
       chomp(@PARTS = <PARTS>);

%hash_table = (@PARTS);

##</code><code>##

foreach (keys %hash_table) {
    

if ($_ eq $ordnum) {

#do something
}

else

{
#do something else
}
}