Select Code to Download

use strict;
use warnings;
...

my %hash = ret_hash();
print Dumper(\%hash);

use strict;
use warnings;
...

my $hash = ret_hash();
print Dumper($hash);