use strict;
{package Foo; sub oik { print "oik\n" } }
my $x = bless [], "Foo";
$x->oik;
our @y;
*y = $x;
( \@y )->oik;