If the file is small, it makes no difference what you do. Don't worry about it. And it does seem like the file must be pretty small, since you are taking field 2 from every line, and concatenating all these fields on your first line of output.

That said, given that the file is so small, it does make sense to read it only once and hold it all in memory for both uses: 

my @arr;  # no need to initialize (and in any case, "= ''" makes littl
+e sense)
my @hdr;
open( F, "x.txt" ) or die $!;
while (<F>) {
    chomp;
    my @flds = split /,/;
    push @array, join( ' ', @flds );
    push @hdr, $flds[1];
}
print join( '/', @hdr ), "\n";
print join( "\n", @array ), "\n";

[download]
(not tested, but should be close, if the OP code is really what you intended)

In reply to Re: How to eliminate duplicated code? by graff
in thread How to eliminate duplicated code? by Anonymous Monk

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.