my $elems = scalar @list;

##</code><code>##

my $elems = @list;