for (1..2) {
    my $x = $_;
    print sub { $x }->();
}