my $x=sub{goto &$ref}->();