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