The main problem is that print "$head Length=$len\n"; is being executed for every line in the file. It needs to be conditional. prasadbabu showed how.