$aa->[0] = my $one;
    $aa->[1] = my $two;
    $aa->[2] = my $three;

##</code><code>##

my $one = $aa->[0];
# ...