Another method(s) that I use sometimes ...

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

or

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