Help for this page

Select Code to Download

Select or download this

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

B B B B B - A A A A A