$ab = "\$a";

##</code><code>##

sub sort_array_by_column_asc_or_desc {
  my( $array, $column, $order ) = @_;
  if( $order eq 'desc' ){
    return sort { put_descending_sort_comparison_here } @$array;
  } else {    # default to ascending sort
    return sort { put_ascending_sort_comparison_here } @$array;
  }
}