addstr(3,1,"N = ". scalar map { grep { /B/ } @$_ } @taulell );