my @a = qw/1 2 4 8/;
my $a = [qw/1 2 4 8/];  # an arrayref