use List::Util 'shuffle';
use List::MoreUtils 'uniq';

my @shuffled = shuffle( uniq @weighteddiv );

@selected = @shuffled[0..4];
[download]