Select Code to Download

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

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

a, b, c, d, e, f, g
h, i, j, k, l, m, n
o, p, q, r, s, t, u
v, w, x, y, z