my $f = sub {my $x = shift; sub {$x ** 2}->()};

##</code><code>##

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

##</code><code>##

my $f = lambda $x => sub { $x**2 }