my ($name, $state, $age) = qw/ billy colorado 21 /;
print "$name\n$state\n$age\n";