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

%hash_table = (@PARTS);