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