sub array_index {
        @_{@_}=-1..@_;
        $_{$_[0]}
    }