my $mystring = "AABAABBBB";
   my @myarray = split //, $mystring;
   my $ct = 0;
   foreach my $element (@myarray) {
      if ($element eq "B") {
         push(@myoccurrences, $ct);
      }
      $ct++;
   }