if (-f "$name.txt") {
    $n=1;
    my $fn = sprintf "%s-%05d\.txt", $name, $n;
    $n++ while -f $fn;
}