for my $str (...) {
   ... sub { ... $str ... } ...
}