...
   my @selectedKeys = grep{ $hash{ $_ } eq $scalar } keys %hash;
...

##</code><code>##

$hash{ $key } = $value;

##</code><code>##

push @{ $hash{ $value } }, $key;
##</code><code>##

...
   my @selectKeys = @{ $hash{ $scalar } };