use Lexical::Alias qw(alias);

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

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