Select Code to Download

if( any { /^\Q$req_type{$req_id}\E$/ } @req_reqest)
...
                        $OTAF_data{'Total'}{'Failure'}++;
                }
        }

my @occured_errors = keys $OTAF_data{'Errors'};