@a = (1, 2, 3);
$count = @a;
printf "\$#a: %d versus \@a in scalar context: %d\n",$#a,$count;