if ( grep fc $str eq fc $_, keys %data ) { # case-insensitive exists