No! Perl uses reference counting, so an element of storage is eligible for garbage collection only when its reference count falls to zero. When you create the %result variable with my, its reference count is one. When you create a reference to it and push that reference onto @array, the reference count of the memory holding the data is incremented to 2. Then, when the for loop
is exited iterates, the lexical variable %hash does indeed go out of scope, so the reference count of the memory it is using is decremented back to 1. But it’s still greater than 0, so the data won’t be garbage collected.
This is one of the features of Perl that make it a joy to work with. As a general rule, Perl is designed to “do the right thing”, which in this case means keeping the data around as long as it’s needed. Reference counting ensures that the data is still valid and available when it is later accessed via the @array variable.
But — try it to see!
Hope that helps,
Update 1: Improved wording slightly.
Update 2: Added link.
Update 3: s/is exited/iterates/.