sub sort_unique_hash { my %hash; @hash{@_} = (); return sort keys %hash; }