my @ca=('0','3','6','9','C','E');
my @bgc=('','','');
foreach my $c (@bgc){
  $r=int(rand(6));
  $c=$ca[$r].$ca[$r];
}
my $bgc=join("",@bgc);