use strict;
use warnings;


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

my @cfor;

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

$_->() for @cfor;


# ---------- while

my @values = 1..3;
my @while;

my $x;
while ( my $i = shift @values ) {
    $x = $i;
    push @while, sub { warn "while: \ti=$i \tx=$x" };
}

$_->() for @while;