Help for this page
my ( $my_tgid_list, $my_switchClli_list, $my_btfn_list, $my_custClli_list, ... );
my @common_keys = qw/custClli switchClli trkCount tgid btfn flag locat +ion ldn .../; my ( %tmp, %mylist ); # use @common_keys with each hash