Select Code to Download

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

say $a[0]->[2]->{foo};          # foo
say $a[0][2]{foo};              # foo