sub sort_lines_by_column {
  my( $array, $column ) = @_;
  return sort {
    return( (split ' ', $a)[$column] cmp (split ' ', $b)[$column] );
  } @$array;
}