du hast leerzeilen in deiner datei die du im moment nicht überspringst. das könntest du z.b. mit next unless $_ =~ /\w/; machen