for (my $i = 0; $i < $anzahl - 1; $i++){
   # ...
}