my $inc; 
$inc++ until ( not -e "$filename~$inc" );