Select Code to Download

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

$hash{ $key } = $value;

push @{ $hash{ $value } }, $key;

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