Select Code to Download

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

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