Select Code to Download

sub xyz {
   my ($tgs) = @_;
...
END_OF_SUB_XYZ
   ;
}

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

sub xyz {
    my ($tgs) = @_;
    my %Test_hash{$tgs} = {};
    # use $Test_hash{$tgs}{foo}, etc.
}