use strict;
use warnings;

foreach (0, 1) {
    my $i = $_;
    my $print = sub {
      print $i;
    };
    $print->();          # 0,1
}