sub y { \&x(); }

##</code><code>##

my $h = &y;

##</code><code>##

sub y { [ x() ]; }