Select Code to Download

my @weighteddiv = (('1234') x 7, ('9876') x 42, ('1123') x 13);
my %selected;
...

my @selected = keys %selected;
print "Selected: @selected\n";

  if (++$selected{$pluck} == 1) {
    push @selected, $pluck;
  }

my @weighteddiv = (('1234') x 7, ('9876') x 42, ('1123') x 13);
my @selected;
...
}

print "Selected: @selected\n";