#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;

my $i;
my $j = 1;

FOO: for ( $i = 0 ; $i < 10 ; ++$i ) {
    if ( $i <= 5 ) {
        do {
            $j = $j + 2;
        };
        unless ( $j < 10 ) {
            print Dumper($j);
        }
    }
}