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