Select Code to Download

my %table = (
    optimal => 'good',
...
);

print $table{failed}{missing};

my %table = (
    optimal => 'good',
...
);

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