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