my %subrefs = (
   name => \&func
);

if (exists $subrefs{$var}) {
   &{$subrefs{$var}};
} else {
   print "Funktion existiert nicht\n";
}