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

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