sub indexArray{
        while (@_) { return @_-1  if $_[0] eq pop }
    }