sub xyz {
my $tgs = @_;
my %Test_hash_${tgs};
...
..
}