#!/usr/bin/perl

use strict;
use warnings;

my $j = 1;

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