@array = sort {$a->{sorter} <=> $b->{sorter}} @array;
@array = map {delete $_->{sorter}}   @array;