print chomp($_); probably isn't doing what you expect. chomp returns the number of characters it removed so most likely your print simply generates a long string of ones.

I notice that the file has a .csv extension which implies a CSV file. Generally it is a bad idea to hand parse CSV because there are a number of quite nasty edge cases to deal with. You may resolve many of you problems by using Text::CSV or Text::xSV.