my $sorter = multikeysorter( sub { my $A = $_; map { $A->{s/^-//r} } @sort }, @types{@sort} );