$fpcr = (scalar grep { /fpcr/ } @array) ? 1 : 2;