for (keys %h1) {
    $_ = 'aa' if $_ eq 'a';
}