sub _is_numeric{
  my ($arref,$index) = @_;
  foreach(@$arref){
    no strict 'refs';
    return 0 if($_->[$index] =~ /[^\d\.]/);
    use strict 'refs';
  }
  return 1;
}# end _is_numeric