If you want to return the values into individual variables....

($name, $address, $city, $phone) = &getInfo();

print "Name: $name\nAddress: $address\nCity: $city\nPhone: $phone";

sub getInfo(){
    return ("xxx", "Main street", "Boston", "123 234 2345");
}
[download]