sub aindex { grep$_[$_+1]eq$_[0],0..@_-2 }