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"