Help for this page
# using your @a and $r say $r->[0]->[2]->{foo}; # foo ... say $a[0]->[2]->{foo}; # foo say $a[0][2]{foo}; # foo