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