perl tie %{}'  '@{}'