http://qs321.pair.com?node_id=1082766

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!
I am trying to push the results of a db query into this hash, trying to return and loop through it to print the results, but I am stuck, might be a better way of doing it?
Here is code to show my problem:

my $result = data(); foreach my $key (keys %{ $result }) { my $value = $result->{$key}; print "User Name = $key - City: $value\n"; } sub data { ... db code stuff ... my %no_name_found; if(@$sql) { for(my $i = 0; $i < @$sql; $i++) { my $user_name = $sql->[$i]{'username'} || ''; my $city = $sql->[$i]{'city'} || ''; # verify user name, this name will come back from this sub check_ +name my $no_name = check_name ( user => $user_name, ); push @{ $no_name_found { $user_name } }, $city; } } return \%no_access_brks; }

Thanks for looking!