Select Code to Download

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

%hash_table = (@PARTS);

foreach (keys %hash_table) {
    
...
#do something else
}
}