Well, you're not counting the number of records, you're counting the number of lines read.

Try setting the record separator $/ to ";" or adding the number of records in @arr to $ct.