$| = 1;




my $Qcount = 10;
my $Qstart = 0;
my $Qint   = 3;



my @StorageArray;

sub incStart {

    for ( $x = $_[0] ; $x < $_[1] ; $x++ ) {

        if ( ( $x % $_[2] ) == 0 ) {
            print $x . "\n";
            push (@StorageArray, $x);
        }
    }
}

print "test " . incStart( $Qstart, $Qcount, $Qint ) . "\n";

##</code><code>##

test0
3
6
9
##</code><code>##

0
3
6
9
test