logIndex in Perl

logindex.pl

#!/usr/bin/env perl
my @logIndex;
for my $i(0..10) {
  my $l = sub {print "$i\n"};
  push @logIndex, $l;
}
foreach my $l(@logIndex) {
  $l->();
}
# Prints 0 to 10