#!/usr/bin/perl

use strict;
use warnings;

my $j = 1;

my $minimum = 10;
my $stepsize = 2;

my $steps = int($minimum/$stepsize);
# If startpoint is zero, we need to add a step
if($j == 0) {
    $steps++;
}
$j = ($steps * $stepsize) + $j;
print "Result: $j\n";