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

say $_->() for @subs;