if ($a ~~ @array){print "$a is part of @array"}
???

print "The $a is $i element of the @array"