my $previous;
  ...
    if (defined($previous) && $previous == $number - 1) {
      $table{$base}++;
    } else {
      ...
    }