my $ref = $some->{huge}->[42]->{arrayref};
*ON::Ar = $ref;
print for @ON::Ar;