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