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