open my $uniqueFH, '<', $uniqueFile or die "open: < $uniqueFile: $!\n"; #### chomp( my @data_in = <$uniqueFH> ); #### my %strSpec_protein_hash; @strSpec_protein_hash{ @data_in } = @goodProteins_hash{ @data_in };