my @a = ("a", "b");

my $x = @a;
my $y = ("a", "b");

print "$x $y\n";   # prints "2 b"