$self->$all_subs[1]->();

##</code><code>##

my $code=$all_subs[1];
$self->$code();