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