use Array::RefElem 'av_store';

my @array;
av_store @array, 1, $array[0];

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

##</code><code>##

use Lexical::Alias 'alias_a';

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