@a = ('a', 'b', 'c', 'd', 'e');

##</code><code>##

$b = @a;

##</code><code>##

$b = scalar @a;

##</code><code>##

$x = () = "abcdABCabA" =~ /a/ig; # Count A's regardless of case.