Select Code to Download

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

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

0101

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

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