sub sort_by_column {
  my $self   = shift;
  my $column = shift;
  $column    = $self->{max_col}-2    if !defined $column; ## oder regex check auf integer

  ...
}