#!/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";
	}
}