s/foo/bar foreach @arr;
return grep { /bar/ } @arr;