You're using a system program to try this, not perl. The syntax for zip is wrong, see man zip. I suggest you don't blindly call system commands from your code, check what you're doing before you try to automate it.

Your options are that you learn how to achieve this with the tools shipped with your OS, or use something like the Archive::Zip module.

Update: Also, this can't be your code, Print "$_\n"; would throw an error.