my %table = (
	optimal => 'good',
	failed => {missing => 1, bad => 1},
);

print $table{failed}{missing};

##</code><code>##

my %table = (
	optimal => 'good',
	failed => [qw(missing bad)],
);

print (grep {$_ eq 'missing'} @{$table{failed}}) ? 'missing' : 'ok';