my $portion = 0.50;
my @array = (1..11);

B B B B B - A A A A A