my (@array, ...) = (list);

##</code><code>##

use strict;
use warnings;

my @age = (20, 30);
my %home = (Kelvin => "Tokyo", Andrew => "New York");
my (@age_r, %home_r) = (@age, %home);
print "@age_r";

##</code><code>##

20 30 Kelvin Tokyo Andrew New York

##</code><code>##

...
my ($age_r, $home_r) = (\@age, \%home);
print "@$age_r";

##</code><code>##

20 30

##</code><code>##

        return ($age, $home);