Why is your code "obviously wrong"?

If you let it, Perl will tell you some things that seem fishy about your code. Add use warnings; as the top line of your script.

split is a function, so you should assign its return value to something.