my $subref = sub {print "hello"};

&$subref();