my %hash = qw(one 1 two 2);
    {
        local $hash{one} = $hash{one};
        $_++ for values %hash;
        print "$hash{one} $hash{two}\n"; # prints "2 3"
    }
    print "$hash{one} $hash{two}\n"; # prints "1 3"