sub _isNumeric($){  
    my $t = shift;
   defined($t) or confess;
   no warnings;
   my $a = $t;
   $a+=0;
   return $a eq $t;
}