Help for this page

Select Code to Download


  1. or download this
    use strict;

my @array = qw(foo bar bazzle baz);

@array = map { s/^baz$/qux/;$_ } @array;
  2. or download this
    my @array = qw(foo bazzle baz baz);

for (@array) {
   last if s/^baz$/qux/;
}
  3. or download this
    for (qw(foo bazzle baz baz)) {
   last if s/^baz$/qux/;
}