my @array = qw "apple orange banana", 4, 42;

scalar @array;      
0 + @arrray;        
'' . @array;        
my $elems = @array; 

scalar @{  [1,2,3]  }; 

my $array_ref = \@array; 
scalar @$array_ref;




sub takes_a_scalar ($) { my ($a) = @_; return $a }

takes_a_scalar @array;