map { substr($_, 1, 1) = "foo" } qw(bar baz);

##</code><code>##

  grep { substr($_, 1, 1) = "foo" } qw(bar baz);

##</code><code>##

  foreach ( qw(foo) ) { $_ = 1 }