#!/usr/bin/perl

use strict;
use warnings;

my ($von, $bis, $schritt, $count) = (10, 30, 4, 2);

my $ergebnis;

for (1..$count) {
    for (my $i = $von; $i <= $bis; $i+=$schritt) {
        $ergebnis++;
        
        # Hier die Befehle, die in der Schleife ausgeführt werden sollen
        
    }
}
print $ergebnis;