my $len1 = @numlist;