sub sort_by_column {
  my $self   = shift;
  my $column = @_ ? shift : $self->{max_col}-2;

  ...
}