while(my($k,$v)=each%values){push@{$hash{$v}},$k;}