sub cmp_by {
    my $result;	
	for my $term (@_) {
        $result ||= +$b->{$term} <=> +$a->{$term} or $a->{$term} cmp $b->{$term};
    }
    return $result;
}