my $elems = scalar @list;