Seeing that you have some repeated subroutines, you might want to use this multiple key dispatch method to map values to subroutines. Then just do something like:

(exists $hash{$funct} ? $hash{$funct} : \&some_default)->();
[download]

Update: While the trinary operator is overkill in this example, if the script and the dispatch hash were persistent, you would want to do it this way so as to not define any new keys in the hash, and open up a possible source of a memory leak. Also Zaxo++ for pointing out what a regular dispatch hash is, which is more straightforward than the code I linked to (though a regular example is in the parent of the linked node).