keys my %or_cache = @in;
@out = sort {
	($or_cache{$a} ||= KEY($a))
	cmp
	($or_cache{$b} ||= KEY($b))
} @in;