my $var;
while (...) {
   ++$var;
   ...
   if ($var % 3 == 0) {
      # Stuff for every third pass.
      ...
   }
}