for (my $i = 1;$i <= $count;++$i) {
      if ( $values[$i -1] =~ /\d+ ) {
             $insert00->bind_param($i,$values[$i - 1],SQL_INTEGER);
      }else{
             $insert00->bind_param($i,$values[$i - 1]);
             }