my @list = ("A","B","C");

my ($var) = @list;    # $var becomes "A"
my $var = @list; # $var becomes 3
my ($var) = scalar(@list); # $var becomes 3
my $var = scalar(@list); # $var becomes 3 (same idea)