#!/usr/bin/perl
use strict;
use warnings;

my @GetServiceList = 'a' .. 'z';
print join (', ', splice @GetServiceList, 0, 7), "\n" while @GetServiceList;