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;
}