use strict;
use warnings;


# ---------- for each @list

my @each;

for my $i ( 1..3 ) {
    push @each, sub { warn "each: \t$i" };
}

$_->() for @each;


# ---------- for c-style

my @cfor;

for ( my $i = 1 ; $i < 4; $i++ ) {
    push @cfor, sub { warn "cfor: \t$i" };
}

$_->() for @cfor;


# ---------- generator

sub gen {
    my ($x)=@_;
    return sub { warn "gen: \t$x" };
}

my @gen;

for ( my $i = 1 ; $i < 4; $i++ ) {
    push @gen, gen($i);
}

$_->() for @gen;