#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
my @foo = qw/ a b c /;
dd( \@foo );
my( $ba, $bar, $rar ) = qw/ q r s /;
dd( $ba, $bar, $rar );
__END__
["a", "b", "c"]
("q", "r", "s")