However I could not do it without while (<DATA>)-loop

Sure you can, simply shift the first, empty (all whitespace) line before the header -- you don't need a loop for that

<DATA> is readline DATA, and readline in scalar context reads one line