#!/usr/bin/perl

use strict;
use warnings;

my $i = 0;
my $j = 1;

while($i < 10) {
    if($i < 5) {
        $j += 2;
    }
    if($j > 10) {
        last;
    }
}   
print "Result: $j\n";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $j = 1;

while($j <= 10) {
    $j += 2;
}   
print "Result: $j\n";

##</code><code>##

#!/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";