@list=sort glob ("*.txt");
($next)= $list[-1]=~/(\d+)/;
++$next;
print "opening $next.txt";
open (FH, ">>$next.txt") or die "no open for you! $!"; #hi, vs!
print FH  "bueno";
close FH;