perl -le '$A = "a"; {local *A; $A = "b" } print $A'