my $sub = sub { my ($str) = @_; sub { $str } }->($str);