while (not eof DATA) {
    # Read four lines and store them in the @record array
    my @record = (
        scalar(<DATA>),
        scalar(<DATA>),
        scalar(<DATA>) );
    $c = $c + 3;
    # Remove the new-line from the end of the lines
    chomp @record;

    # Store a reference to this @record instance
    # in the @data array.
    $data[$record[0]] = [$record[1],$record[2]];
}
# Arrays start at zero and the sort below will barf if you 
# don't have each element in the array be an array ref
$data[0] = [] unless $data[0];
close DATA;
my @sorted = sort { $a->[0] <=> $b->[0] } @data;

print Dumper(@sorted)."\n";

for ($i = 0; $i < ($c); $i++) {
    next unless defined($sorted[$i]);
    for ($j = 0; $j <= 1; $j++) {
        print $sorted[$i][$j]."\n" if defined $sorted[$i][$j];
    }
}

[download]
You will need to figure out what to do about $data[0]. I wasn't sure if the 1,2,3... from your data were important as values or they just defined order. If you the values are just to maintain order, then you could  shift @data instead of creating the dummy  $data[0] = ....

Plenty left for you to think through and tinker with.

In reply to Re: Referencing an array by Cabrion
in thread Referencing an array by stu96art

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.