my %new_hash = map {($_, [$rep{$_}, $comb{$_}])} keys %rep;
for my $key(keys %new_hash){
print "$key=$new_hash{$key}\n";}