# data.pl
(
	act => {
		"food"  => "eat it",
		"drink" => "drink it",
		"Perl"  => "play it",
	},
	act1 => {
		"foo"   => "bar",
		"baz"   => "biz",
	},
);

##</code><code>##

my %hash = do 'data.pl';

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