Select Code to Download

my $tcid;
GetOptions("tcid=s" => \$tcid);
...
foreach my $tc (@tcids) {
    $dispatch_table{$tc} = sub {eval "tcid_$tc()"},
);

$dispatch_table{$tc}->();