use warnings;
use strict 'refs';
my $cl3 = sub {
    local $_;
    foreach $_ ((0, 1), (5, 6)) {
        print $_++, "\n";
    }
}
;
&$cl3();
&$cl3();
&$cl3();