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

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