mit seek (perldoc -f seek) kannst du du zum x-ten Zeichen springen; dass ist jetzt aber Zeilen ubanhängig...
ab dann einfach mit IO::File->getline weiterlesen... und zwar y-mal!