foreach (@array) {
   $fall_through = 0;

   ...

   $fall_through = 1;
}
continue
{
   print($fall_through ? "Fell" : "Didn't fall", " through.\n");

   ...
}