use List::Util 'shuffle';
my %unique = map { $_ => 1 } @weighteddiv;
my @shuffled = shuffle(keys %unique);
@selected = @shuffled[0..4];