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";