in reply to Preserving hash structure after subroutine call

I would like to suggest you this way:
#my $myhash; #build_hash($myhash); my $myhash = build_hash(); print Dumper($myhash); ## shows %myhash to be empty sub build_hash { my $href_ref; #my %results; my $sth = $dbh->prepare( $query ); $sth->execute(); # Get all records as array reference of hash references. my $res = $sth->fetchall_arrayref({}); map { $hash->{$_+1} = $res->[$_] } (0 .. @$res-1); #my $ct = 0; #while (my $tmp_href = $sth->fetchrow_hashref) { # $ct++; # $results{$ct} = $tmp_href; #} #%{ $href } = %results; ## also tried Storable's dclone(), but same results ## $href = dclone(\%results); print Dumper($href); ## prints desired results return $href; }
Hope I helped
      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);