sub results {
    # Guessing that the results are in separate variables $name,
    # $address, $city, $phone:
    return {
        name    => $name,
        address => $address,
        city    => $city,
        phone   => $phone,
    };
}