for (1) { for (1) { my @breach = ("dear", "friends"); }} # Henry V, of course # I know, hardly obtuse enough, but then being a mere novice ... my ($prick, $tickle, $wrong); my ($bleed, $laugh, $revenge) = undef; if ($prick) { $bleed = 1; } if ($tickle) { $laugh = 1; } if ($wrong) { $revenge = 1; } # Or warn "bleed" if /prick/; warn "laugh" if /tickle/; warn "revenge" if /wrong/;