my @servers = qw( foo bar baz quux );
while (@servers) {
   my @group = splice @servers, 0, 3;
   print "group: @group\n";
}