my %hash; map { push( @{ $hash{ $values{$_} } }, $_ ) } keys %values;