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