sub sort_by_column {
  my $self   = shift;
  my $column = shift // $self->{max_col}-1;

  ...
}