>perl -wMstrict -le
"my @ra = qw(a b c);
 print length @ra;
 print scalar @ra;
 ;;
 @ra = ();
 print length @ra;
 print scalar @ra;
"
1
3
1
0