my $i = 0;
while($i < $anzahl)
{
   # ...
   $i++;
}