my $sub = do { my $str = $str; sub { $str } };