Use a hash within a hash

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

print $table{failed}{missing};
[download]

Or an array within the hash

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

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