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

##</code><code>##

my $info = results();
print "Name: " . $info->{name} . "\n";
# And of course $info->{address}, $info->{city} and $info->{phone}