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