note MrNobo1024 <code> sub aindex { grep$_[$_+1]eq$_[0],0..@_-2 } </code> 66003 66855