I would also mention just a simple ternary operator as an alternative:

return grep($_ eq $_[0], @_[ 1 .. $#_ ]) ? 1 : '';
[download]

or, more generally the equivalent to !!$expr is (some of the parens are optional depending on context):

(($expr)?1:'')
[download]