sub foo {
   my $found = 0;
   for (...) {
      if (...) {
         $found = 1;
         last;
      }
   }
   return $found;
}