perldoc -f chomp should tell you that chomp returns the total number of characters chomped from its arguments. So in essense, you're trying to piglatinize "1". Try changing $latin->charge($_) to $latin->charge($line).

As an aside, you shouldn't assign to $_. You can do Bad Things(tm) like that if you're not careful.