$inc = 1;
while (-e $filename."~".$inc) { $inc++;}