push @{ $no_name_found { $user_name } }, $city; 

##</code><code>##

        my $value = $result->{$key};
        print "User Name = $key - City: $value\n";

##</code><code>##

User Name = User - City: ARRAY(0x3eafa1c)

##</code><code>##

        my $value = $result->{$key};
        local $" = ', ';
        print "User Name = $key - City: @$value\n";

##</code><code>##

        my $value = $result->{$key};
        print "User Name = $key - City: ", join(', ', @$value), "\n";