Does anybody know how to get

use Lexical::Alias qw(alias);

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

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

to DWIM? It prints " 2", and I would like "2 2".

P.S. Will Perl 6's runtime bindings do this?

Update: I should note that I tried alias_r \$array[0], \$array[1];, and it doesn't work either. Don't bother ;-)