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

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