sub sub1 { print "sub1 ran, got args: [@_]\n" }
sub sub2 { print "sub2 ran, got args: [@_]\n" }

my @refs = (
    sub { sub1(1, 2, 3) },
    sub { sub1('foo', 'bar') },
    sub { sub2(4, 5, 6) },
    sub { sub2('some', 'string') },
);
$_->() foreach @refs;