my ($foo, $bar, $bam);

# or

my ($foo, $bar, $bam) = qw/ red green blue /;