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