my $f = sub { my $x = shift; $x**2 }