Select Code to Download

my @subs;
for (qw( 123 456 789 )) {
...
}

say $_->() for @subs;

123
456
789

my $int;
my @subs;
...
}

say $_->() for @subs;

789
789
789