for my $i (1..5) {
    for my $j (1..3) {
        print "i = $i; j = $j \n";
    }
}