grep { ff(scalar(/DBIC/ .. /DANCER/)) } @list;