my @subs;
for (qw( 123 456 789 )) {
   my $int = $_;
   push @subs, sub { $int };
}

say $_->() for @subs;

##</code><code>##

123
456
789

##</code><code>##

my $int;
my @subs;
for (qw( 123 456 789 )) {
   $int = $_;
   push @subs, sub { $int };
}

say $_->() for @subs;

##</code><code>##

789
789
789