use List::Util 'shuffle';
use List::MoreUtils 'uniq';
use strict;
my @weighteddiv = (
          (1..50),
          (1..10) x 10,
      );

my @shuffle1 = shuffle( uniq @weighteddiv );
my @shuffle2 = uniq( shuffle @weighteddiv );

printf "shuffle1: %s\n", join(', ', sort {$a <=> $b} @shuffle1[0..10]);
printf "shuffle2: %s\n", join(', ', sort {$a <=> $b} @shuffle2[0..10]);