in reply to Re^4: Hmmm: while(), file handle and $_ gotcha
in thread Hmmm: while(), file handle and $_ gotcha

Since we want to print the first 5 lines of each group of 10, 
while (<DATA>) {
   print if ($. - 1) % 10 < 5;
}

[download]

In Section Seekers of Perl Wisdom