($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]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.