my $tcid;
GetOptions("tcid=s" => \$tcid);
my @tcids = split(",", $tcid);

my %dispatch_table;
foreach my $tc (@tcids) {
    $dispatch_table{$tc} = sub {eval "tcid_$tc()"},
);