Select Code to Download

for (my $i = 0; $i<3; $i++) {
    my $str = "$i\n";
    push @d, sub { print $str };
}

for (my $i = 1; $i<=3; $i++) {
    my $str = "$i\n";
    push @d, sub { print $str };
}

for my $i (1..3) {
    my $str = "$i\n";
    push @d, sub { print $str };
}