for my $object (@objects) { 
    if (grep { $_ !~ /$object/ } @config){
        ...
    }
    elsif (grep { /^PPS/ } @objects){
        print $fp "object-group service $object \n";
    } 
    else {
        print $fp "object-group network $object \n";
    }
}