I'm not sure that last code snippet is going to work. Perhaps using index inside the grep would?

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

Cheers,

JohnGG