Select Code to Download

use Array::RefElem 'av_store';

...

$array[1] = 2;
print "@array";

use Lexical::Alias 'alias_a';

...
  my $t;
  alias_a @{sub {\@_}->($t, $t)}, @array;
}