use strict;
use warnings;

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

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