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