@a = 3; @a["x"]=4; $new=@a
