for (my $sv=0; $sv<$numservs; $sv++) { my $server = $data->{items}[0]->{client}[$i]->{site}[$s]->{servers}[$sv]->{server}[0]; if ($server->{name}[0]) { my $server_name = $server->{name}[0]; eval { my $numfails = @{$server->{failed_checks}}; for (my $fc=0; $fc<$numfails; $fc++) { my $numchecks = @{$server->{failed_checks}[$fc]->{check}}; for (my $check=0; $check<$numchecks; $check++) { if ($server->{failed_checks}[$fc]->{check}[$check]->{dsc_247}[0] == 1) { my $description = $server->{failed_checks}[$fc]->{check}[$check]->{description}[0]; if ($description !~ /Performance Monitoring/ ) { push (@fails, $description); $report = 1; } } } }