put all your functions into hash and call from there:

my %funcs = ('A'=>\&func_a, 'ABC'=>\&func_c); #etc
#...
#and then call it as
push @res, $funcs{$func_com}->(@someval);
[download]

update checking for existance of function in the hash was left as an excercise for a reader
:)