if ( grep { index($str, $_) != -1 } @arr ) { ...