Select Code to Download

perl -MData::PowerSet -le 'my $p = Data::PowerSet->new(qw(A B C D E));
+ print "@$_" while $_= $p->next'
# produces :
A B C D E
...
A B
B
A

my %dispatch = (
    A => \&func_a,
...
for my $token (split //, $func_com) {
    push @all_res, [$dispatch{$token}->(@some_val)];
}