In the line marked #WRONG, the reference is always taken to @array which is only allocated once in the program (probably implicitly). Therefore, on each iteration, @array gets new values, and its location gets stored and all those references refer to the last set of values. To fix it, declare @array on each iteration:

  my @array = somefunc($i);
[download]

Then, new memory is allocated each time and the references are to those different memory areas.

Phil