Sorry I don't know what that means. °

Can you output each service independently or do you need to know all the data before writing?

Update

My approach would be using a flip-flop operator to read each service and to output at the end.

Each line would be processed by a dedicated subroutine based on the first word.

Like service::description() and so on.

This would make your code far more readable and easier to maintain.

°) I can help you with Perl, but not with Cisco or Juniper, sorry.