The first argument to push must be an array.

If you're not using perl 5.14

http://pastehtml.com/view/1e8ud19.html#p5140-Array_and_hash_container_functions_accept_references