Help for this page
foreach (@CHOICE) { if ($_ && /.../) { ... } }
foreach (@CHOICE) { $_ or next; if (/.../) { ... } }