sub newhashref { { a => 1, b => 3 } } sub innerblock { { local $a => 1; ... } print "old a=$a" }