Subroutine ausführen, Name im Skalar

[Beat]

ich würde gerne eine Sub ausführen lassen, deren Name in einem Skalar steht, also zum Beispiel:

$test = "test_sub";

Hier kommt der Befehl zum ausführen der Sub

sub test_sub {
              print "Hallo Welt!";
              }

>   
> Am Ende sollte dann "Hallo Welt!" auf dem Bildschirm stehen :)  
> Hoffe ihr habts verstanden und schonmal vielen Dank!  
  
Zum Beispiel:  
  
~~~perl
my %functions=(  
   hallo =>  
      sub {  
         print "hallo welt\n";  
      },  
   adee =>  
      sub {  
         print "adee du schnöde welt\n";  
      },  
);  
  
exists $functions{ $eviluserinput }  
   and $functions{ $eviluserinput }->();

mfg Beat