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