my $max    = 10;
my $anzahl = 451;
my $step   = int($anzahl/$max);
my $lfd    = 0;

foreach my $nr (1..$anzahl) {
    next if $anzahl > $max and $nr % $step;
    $lfd ++;
    print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n";
}