#!/usr/bin/perl

use v5.16;
use warnings;

foreach (1, 2) {
    say for qw(a b);
    say;
    foreach (10, 20) {
        say;
    }
    say;
}

__DATA__
a
b
1
10
20
1
a
b
2
10
20
2