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