sub this {
  my @array = @{(shift)} ;
  my $keys = shift ;
  for my $key (@$keys) {
    @array = sort {$$a{$key} cmp $$b{$key}} @array;
  }
  return @array;
}