Use intermediate variables:

        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_check
+s}[$fc]->{check}[$check]->{description}[0];
                                if ($description !~ /Performance Monit
+oring/ ) {   
                                    push (@fails, $description);
                                    $report = 1;
                                }
                            }
                        }
                    }
[download]