perl -mstrict -we "my @arr=(1,2,2);print 'both' if [2,2] ~~ @arr[1,2]"
both

##</code><code>##

perl -mstrict -we "my @arr=(1,2,2);print 'exactly two' if (grep{$_==2}@arr) == 2"
exactly two