Select Code to Download

# data.pl
(
...
        "baz"   => "biz",
    },
);

my %hash = do 'data.pl';

my $item = "Perl";
my $out = grep {-p $_->{$item}} values %hash ? 1 : 0;