$i    = 3;
     $func = sub { cos ($_[0]) };

     print "Das ist ",&$func($i),"\n";

##</code><code>##

     $i    = 3;
     $func = "cos";

     print "Das ist ",&{$func}($i),"\n";