my $var;
while (...) {
   ++$var;
   ...
}
[download]

And for "every third",

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