Select Code to Download

use strict;
use warnings;
...
           grep { exists($$hr{$_}) and defined($$hr{$_}) and $$hr{$_} 
+}
           @wanted;
}

roboticus@Boink:~
$ perl return_grep_slice.pl
$VAR1 = {
          'c' => 'foo'
        };