my $var;
while (...) {
   ++$var;
   ...
}