Select Code to Download

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

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

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

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

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