Select Code to Download

my $portion = 0.20;
my @array = (2, 4, 3, 8, 9, 12, 13, 20, 18, 7);
...
$final[$sorted_idxs[$_]] = 'A' for -$keep..-1;

print("@final\n");

B - B - - - - A A -