my @h1 = %h1;
for (@h1) {
    $_ = 'bb' if $_ eq 'b';
}
%h1 = @h1;