for sort{$a<=>$b} keys %comp;