Help for this page

Select Code to Download


  1. or download this
      map { substr($_, 1, 1) = "foo" } qw(bar baz);
  2. or download this
      grep { substr($_, 1, 1) = "foo" } qw(bar baz);
  3. or download this
      foreach ( qw(foo) ) { $_ = 1 }