The array iterator is specially treated. If you use more 'common' way, it is copied by value:

$ perl -E 'my @array=qw/1 2 3/; my $first=$array[0]; $first=0; say "ar
+ray: @array"; say "fetched changed: $first";'
array: 1 2 3
fetched changed: 0
[download]