$ perl -we'use strict;my @a=1..9;say "ok" if (3 ~~ @a)'
ok