# array:
$ perl -wE 'my @a = qw/a b c/; say scalar @a'
3
# array ref:
$ perl -wE 'my $a = [qw/a b c/]; say scalar @$a'
3