my @chosen = ChooseN( 2 , \@set );
push @chosen, ChooseN( 4 , \@set );
push @chosen, ChooseN( 6 , \@set );
push @chosen, ChooseN( 8 , \@set );

##</code><code>##

use List::Util 'shuffle';
@chosen = shuffle @chosen;

##</code><code>##

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