eval { field( \@CBR, 3, \@CBRF3, $#CBRF3 ) };
warn "Some error with CBR3: $@\n" if $@;