my $chosen = '';
while(@chosen){
   $chosen .= join '', splice @chosen, 0, 6;
   $chosen .= ' ' if @chosen;
}
return $chosen;