Select Code to Download

sub sub1 { print "sub1 ran, got args: [@_]\n" }
sub sub2 { print "sub2 ran, got args: [@_]\n" }
...
    sub { sub2('some', 'string') },
);
$_->() foreach @refs;

sub foo { print "Got args: [@_]\n" }

...
foreach my $arg_ref (@args) {
    foo(@$arg_ref)
}