>perl -wMstrict -le
"my @pmis = qw(foo bar baz quux);
 if (do { for (@pmis) { if (/(.)\1/) { print; } }  1; }) {
   print q{well, that's done};
   }
"
foo
quux
well, that's done