my $f = sub {my $x = shift; sub {$x ** 2}->()};
say $f->(2);  # => 4
say $f->(3);  # => 9