DB<166> @a=("1 ",0,"")
 => ("1 ", 0, "")

  DB<167> scalar grep { $_+0 ne $_ } @a
 => 2

  DB<168> (grep { $_+0 ne $_ } @a) > @a/2
 => 1