#! /usr/bin/perl
use strict;
use warnings;

sub user (\@\%) {
        my ($age, $home) = @_;
        return (@$age, %$home);
}

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