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