# using scalars
my($name, $age, $birthday, $address, $zipcode, $city, $country) = @array;

# using hash
my @keys = qw(name age birthday address zipcode city country);
my %user;
@user{ @keys } = @array;

# so, instead of
print "name = $name\n";

# you can write
print "name = $user{name}\n";