I don't understand why you are losing data, I'm just guessing at the reason why you think you are losing data. If I'm right, then maybe you shouldn't be using a hash array, maybe you should just be using a regular array (of arrays), and then you can just sort on the element that you're currently putting in the key of the hash arrays. But since I'm not sure what you're trying to accomplish in the end, I can't be sure. Posting a small but complete example of what you're trying to do would help, instead of posting something that opens files with data that we can't see. You can post examples of reading in data using the DATA handle, e.g.:
my @lines;
while (<DATA> {
  my @array = split;
  # Don't save first two fields
  push @lines, [ @array[2..5] ];
}

# Sort 3 field from input
for my $line (sort { $a->[0] cmp $b->[0] } @lines) {
  for my $value (@$line) {
    print "$value\t";
  }
  print "\n";
}

__DATA__
a b c d e f
a b c d e f
g h i j k l

[download]

In reply to Re^5: "Global Symbol Requires Explicit Package Name" error by runrig
in thread "Global Symbol Requires Explicit Package Name" error by Portree

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.