I did have doubts about it being possible.

Of course it's possible. As several wise monks have pointed out, it's also a Very Bad (and rather pointless) Idea unless you are in contention for the Jerk of the Year award from your fellow programmers, especially those who will have to maintain your code after you 'leave' (read: 'get fired for doing stuff like this').

But it's possible:

>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
[download]