my $f = sub { $_[0]**2 }; say $f->(2); # => 4 say $f->(3); # => 9