use strict;

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

@array = map { s/^baz$/qux/;$_ } @array;

##</code><code>##

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

for (@array) {
   last if s/^baz$/qux/;
}

##</code><code>##

for (qw(foo bazzle baz baz)) {
   last if s/^baz$/qux/;
}