Example:

@moo = (1 .. 10);
foreach (@moo)
{
  if ($_ % 2 > 0) { DROP();} # <----- is what I would LOVE
                             # to do
}