use signatures; my $lamb = sub ($x, $y) { $x + $y }; print( $lamb->(3,4), "\n" ); # 7