Select Code to Download

@test eq ('billy', 'colorado', '21');

my ($name, $state, $age) = (@test);
print "$name\n$state\n$age\n";