Select Code to Download

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

use strict;
use warnings;
...
my %home = (Kelvin => "Tokyo", Andrew => "New York");
my (@age_r, %home_r) = (@age, %home);
print "@age_r";

20 30 Kelvin Tokyo Andrew New York

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

20 30

        return ($age, $home);