my $code = \&{shift @_};