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

my $max = 10;
my $anzahl = 30;

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