Select Code to Download

my ( $my_tgid_list, $my_switchClli_list, $my_btfn_list );
my ( $my_custClli_list, $my_trkCount_list, $ $my_ldn_list);
...
my ( $eachrow, $tmp_tgid, $tmp_switchClli, $tmp_btfn);
my ( $tmp_custClli, $tmp_trkCount, $tmp_ldn);
my ( $tmp_location, $tmp_flag );

my ( $my_tgid_list, $my_switchClli_list);
my ( $my_btfn_list, $my_custClli_list );
...
my ( $tmp_btfn, $tmp_custClli);
my ( $tmp_trkCount, $tmp_ldn);
my ( $tmp_location, $tmp_flag );