perl 怎么判断 $b 是否属于 @a 怎么表示?