Select Code to Download

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

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