my $oldfile = "name_0009";
my $num = substr($oldfile, -4);
++$num;
my $newfile = substr($oldfile, 0, -4) . $num;