Select Code to Download

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

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

my $chosen = '';
while(@chosen){
...
   $chosen .= ' ' if @chosen;
}
return $chosen;