my $cl1 = sub {
  foreach my $x (0) { print $x++; }
};
$cl1->();
$cl1->();

##</code><code>##

my $cl2 = sub {
  foreach my $x (0..1) { print $x++; }
};
$cl2->();
$cl2->();

##</code><code>##

0101

##</code><code>##

my $cl3 = sub {
  foreach my $x (0..1,5..6) { print $x++; }
};
$cl3->();
$cl3->();

##</code><code>##

for (1..2) {
   foreach my $x (0..1,5..6) { print $x++; }
   foreach my $x (0..1,5..6) { print $x++; }
}