use strict;
use warnings;

my @names = sort grep {/^TestSub/} keys %main::;
my @FuncList = map {$main::{$_}} @names;

$main::{TestSub2}();
$FuncList[0]();

sub TestSub1 {
    print "TestSub1\n";
}


sub TestSub2 {
    print "TestSub2\n";
}