sub x { my @a = (1, 2, 3) }
sub y { \&x(); }

my $h = &y;
print "@$h\n";