use strict;
use warnings;

my %JumpTbl = (TestSub1 => \&TestSub1, TestSub2 => \&TestSub2);
my @FuncList = values %JumpTbl;

$JumpTbl{'TestSub2'}();
$FuncList[0]();


sub TestSub1 {
    print "TestSub1\n";
}


sub TestSub2 {
    print "TestSub2\n";
}