my $ref=sub{say("HELLO\n")};
sub hello {$ref->()}
hello();