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

  DB<161> if (grep { $_+0 ne $_ } @a)  { "string" } else { "num" } 
 => "num"

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

  DB<163> if (grep { $_+0 ne $_ } @a)  { "string" } else { "num" } 
 => "string"

##</code><code>##

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

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

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

##</code><code>##

  DB<186> use Scalar::Util qw/looks_like_number/
 => 0

  DB<187> grep { ! looks_like_number($_) } 0,"1","2 ", 3.14, " 4 ", 5e55, "six"
 => "six"