sub testit{ print 'hi' }

sub doit (&) { $_[0]->() }

$codeRef = \&testit;
doit { &$codeRef };