  @lar=();@ps=();@ts=();
  for $i (1..12) {
     $bb = int(3.2*$i/0.3 - 1.618*rand(3.5*$i)/(0.7));
     $bbs = rand(100);
      $lar[$i - 1] = int($bb*0.24);
      }
  print join(' ',@lar),' ',ttfn(@lar)," lar \n";
 %rgm={};
 $csm=0;
 for $i (1..24) {
  $ps[$i-1] = 25*0+$i;
  $bb = rand(1);
  $rgm{$i} = $bb;
  $csm+=$bb;
  }
  $csm/=24.;
print join(' ',keys(%rgm)),' ',$csm,' ',$ps[0],' ',$ps[23],"\n";


@cgm=();@cgmr=();
# print $c; foreach $cc (sort(keys(%rgm))) 
for $cc (@ps) {
# print $c;
   $cc = $cc*0+int(rand(10)*2.3);
  $c = $ps[$cc+1*0];
# print $cc,'/',$c;
if ($rgm{$c} < 2) {  
  if ($rgm{$c} <= $csm) {
   push(@cgm,$c);}
   else {
    push(@cgmr,$c);
    }
    }
$rgm{$c} =5.5;
 }
print join(' ',@cgm),"\n";
print join(' ',@cgmr),"\n";

  sub ttfn {
   (@arr)=@_;
   $ts=0;$n=0;$tr=0;
   foreach $i (@arr) {
    $ts=$ts+$arr[$i];
    $tr=$tr+1.1/($arr[$i]+0.1);
    $n=$n+1;   
       }
    return $ts/$tr/($n*$n);      
      }
            