for (reverse <file_name.*>) {
  my $old = $_;
  next unless s/\.([0-6])$/'.' . (1 + $1)/e;
  rename $old => $_;
}