Here's your loop: 
while(<JOE>) {
 @data = <JOE>;
}

[download]
each time through the loop, the <JOE> in the while loop reads a line of data into $_. You do nothing with the contents of $_ in the loop, so the first line is effectively lost.

The @data=<JOE> line actually reads ALL remaining lines into the array. When this happens, it causes the next test for the while() to come out false, since there are no more input lines to process.

So, I think all you really want here is to remove the while loop, replacing the above code with: 

@data = <JOE>;

[download]

For the record, this would also work, and would conceptually be closer to what you were trying to do (but would be less elegant / perl-ish): 

while(<JOE>) {
  push @data, $_;
}

[download]

BTW, your code is very short, next time if it's like that, I suggest you just paste the code into your post rather than link to it. Same with the results.

In reply to Re: Can't Read First Line by dynamo
in thread Can't Read First Line by loop362

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.