Select Code to Download

sub results {
    # Guessing that the results are in separate variables $name,
...
        phone   => $phone,
    };
}

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