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