You'll want to read the entire file into an array of arrays, and then use perl's nice sort function to sort that array, finally writing the data back to the file. Sample code is below: 
my @data
while (my $line = <FILE>) {
   my @elements = split /,/, $line;
   push @data, \@elements;    # need to store as ref
}

@data = sort { $$a[2] cmp $$b[2]  or  $$a[0] <=> $$b[0] }
          @data;
# cmp and <=> are string and numerical comparison operators, 
# respectively; if the left hand arg is less than the right,
# they return -1, if equal, 0, and otherwise 1, so if the
# 3rd column of the array is the same, we get a 0, which 
# triggers the 'or' and the second comparison

open OUTFILE, ">$outfile" or die $!;
foreach my $item (@data) {
   print OUTFILE join ',', @$item;
   print OUTFILE "\n";
}

[download]

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain

In reply to Re: Multiple Sort on a file by Masem
in thread Multiple Sort on a file 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.