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