sub sort_aoa {
  my( $array, $column ) = @_;
  return sort { $a->[$column] cmp $b->[$column] } @$array;
}