#!/usr/bin/perl

$x=0;
@players=();
while($username=<>){
   $username=~s/\r*\n*//gs;
   push(@players,$username);
   $x++;
   if($x==6){
      print join(",",@players);
      print "\n";
      @players=();
      $x=0;
   }
}
print join(",",@players);
print "\n";