local $, = ", ";
local $\ = "\n";
while (@GetServiceList >= 7) {
    print splice @GetServiceList, 0, 7;
}
print @GetServiceList if @GetServiceList;