Help for this page
my %new_hash; $new_hash{$_} = [$rep{$_}, $comb{$_}] for keys %rep;
my %new_hash = map {($_, [$rep{$_}, $comb{$_}])} keys %rep;