if($arr[$i]=~/^\d+$/){