use strict;
use warnings;
use Data::Dumper;


my $hash_ref = {1 => 2, 3 => 4};
BLOCK: {
    local $hash_ref->{1} = 5;
    $hash_ref->{3} = 6;
    print Dumper $hash_ref;
}

print Dumper $hash_ref;