#!/usr/bin/perl -w
use strict;
use warnings;

my $max = 10;
my $anzahl = 20;

my $lfd = 0;
foreach my $nr (1..$anzahl) {
    if (
        $anzahl <= $max
            ||
        int ($nr / int ($anzahl / $max)) == $nr / int ($anzahl / $max)
    ) {
        $lfd ++;
        print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n";
    }
}