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