my @ary = qw/a b c d/;
my $var = @ary;     # $var is 4; @ary is interpreted in scalar context
my $var1 = [@ary];  #$var is ['a','b','c','d']