first of all, it's a warning and not an error, so may be your code functioning properly?

Also, your $events[1] is in most probably in trouble. Perl arrays started from "0" index.

Also, may be you should check whether your array is wide enough to have certain elements?

Courage, the Cowardly Dog.