Select Code to Download

sub hash_init  {

...
    return %hash;
}

    my %hash = hash_init();

...
    print Dumper(%hash);

    untie (%hash);