use strict;
use warnings;

my $cl3 = sub {
  local $_;
  foreach (0..1,5..6) { 
    print $_++ , "\n"; 
  }
};

$cl3->();
$cl3->();
$cl3->();

##</code><code>##

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