I would suggest getting familiar with the Perl debugger. You will be able to inspect your variables and see if they contain what you expect. For instance, I don't think @svcArray contains what you think it contains. You're overwriting it each time you read a service line, instead of adding each line in turn.