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