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

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