$f= grep( /f/, @array ) ? 1 : 2;