if ($data[$i] =~ /^[0-9]+$/)
{

}