sub reportWA{  # $key
  my $key = shift;

  my $NewWA;

  unshift @{ WA{ $key }{ stags } }, $WA{$key}{PT};
  unshift @{ $WA{ $key }{ stags } }, $WA{$key}{PT};
  $NewWA = $WA{ $key }{ PT };

  $#{ @{ WA{ $key }{ stags } } } = $rnds-1;
  for my $i ( 1 .. $rnds -1 ){
    ${ WA{ $key }{ stags } }[ $i ] *=  $wght;
    $NewWA += ${ WA{ $key }{ stags } }[ $i ];
  }
  #plog sprintf "stages =  %s" ,join (", ",@stags);
  $NewWA /= $rnds;
  
  printf " %d  %d  %8.2f    %s\n" , 
       $key, $WA{ $key }{ PE },
       $NewWA, join( ", ", @{ WA{ $key }{ stags } } );
}