if (Func->any(1,2,3) == 2) {
print 'There is a 2';
}

{
package Func;use overload ('==',sub{handle('==',@_);},'eq',sub{handle('eq',@_);},'!=',sub{handle('!=',@_);},'ne',sub{handle('ne',@_);},'>',sub{handle('>',@_);},'gt',sub{handle('gt',@_);},'<',sub{handle('<',@_);},'lt',sub{handle('lt',@_);},'<=',sub{handle('<=',@_);},'le',sub{handle('le',@_);},'>=',sub{handle('>=',@_);},'ge',sub{handle('ge',@_);},'bool',sub{handle('!=',$_[0],0,0);});sub any{bless['any',@_[1..$#_]],shift@_;}sub some{bless['some',@_[1..$#_]],shift@_;}sub all{bless['all',@_[1..$#_]],shift@_;}sub none{bless['none',@_[1..$#_]],shift@_;}sub handle{my($TRUE,$FALSE)=();my($what,$any,$val,$r)=@_;my$b4='';my$do=shift@$any;$do eq 'all' and$b4='not';foreach$_(@$any){my(@lr)=($_,$val);$r and@lr=reverse(@lr);$do eq 'any'?do{eval q['].$lr[0].q['].' '.$what.' '.q['].$lr[1].q['] and return 1}:($do eq 'some'?do{eval q['].$lr[0].q['].' '.$what.' '.q['].$lr[1].q[']?do{$TRUE=1}:do{$FALSE=1}}:do{eval$b4.q[ '].$lr[0].q['].' '.$what.' '.q['].$lr[1].q['] and return 0});}$TRUE and$FALSE and return 1;$do =~ m'(all|none)' and return 1;return 0;}1;
}