my $code=sub{print "hi\n";}; 
&{$code};