#!/usr/bin/perl

use warnings;
use strict;

for my $i (1 .. 10) {
    # Block 1
    print "i: $i\n";

    for my $u (1 .. 5) {
        # Block 2
        print "u: $u\n";
    }
}