#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my @a = [ qw(a b c) ];
print "\@a contains ",scalar @a," element(s) and looks as such:$/",Dumper(\@a);

my @b = ( qw(a b c) );
print "\@b contains ",scalar @b," element(s) and looks as such:$/",Dumper(\@b);
__DATA__
output:
@a contains 1 element(s) and looks as such:
$VAR1 = [
          [
            'a',
            'b',
            'c'
          ]
        ];

@b contains 3 element(s) and looks as such:
$VAR1 = [
          'a',
          'b',
          'c'
        ];