sub xyz {
    my ($tgs) = @_;
    my $hash_name = "Test_Hash_$tgs";
    my %{$hash_name};
}