You want to sort the whole row as a string, then sort on the first column numerically, correct?

#!/usr/bin/perl -w
use strict;

my @sorted = map {$_->[0]} sort {
    $a->[0] cmp $b->[0] ||
    $b->[1] <=> $a->[1]
} map {[ $_ ,/(\w+)\s+(\w+)\s+(\w+)/]} <DATA>   ;
print  for @sorted;
    

__END__
2 4 a
1 9 b
6 8 a

[download]

UPDATED

My mistake- I thought you were asking a perl perlfunc:sort question, rather than Gnu sort. (I also didn't realize that this was a mid-thread revision of the subj. line .). For a perl question, then you would be looking for... 

my @sorted = map {$_->[0]} sort {
    $a->[3] cmp $b->[3] || # sorted ascending alpha on col 3
    $b->[2] <=> $a->[2]    # then sorted reverse num on col 2
} map {[ $_ ,/(\w+)\s+(\w+)\s+(\w+)/]} <DATA>   ;

print  for @sorted;

[download]

(I think..)
UPDATED2
Gnu sort's index starts with 0. The last column would be "2" not "3". Does this help, rchou2?
mkmcconn

In reply to Re: Double Sort Rephrased by mkmcconn
in thread Double Sort on a file by rchou2

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.