$num = 12345;
$dir = "/some/dir/";

$num++ while -e "$dir/$num";

open(F, ">$dir/$num") or die ...