Here's a multi-field sort. What I did was to reverse the 2nd field using Sort::Fields. It's flexible. Give it try:

#!/usr/local/bin/perl 

use strict;
use warnings;
use Sort::Fields qw(fieldsort);
use Data::Dumper::Concise;

my(@data) = <DATA>;
my @sorted_data = fieldsort [1, -2], @data;
foreach my $sorted_data(@sorted_data) {
    print $sorted_data;
}

__DATA__
0 a 1  -4.5
0 a 2  -2.5
0 b 3  1e2
1 b 4  123456
1 b 5  1e3
1 b 6  2e5
0 b 7  .00001
0 a 8  .00002
1 a 9  -.234e2
1 b 10  1e-1
0 a 12  1e-2
0 a 13  .123
0 a 14  .234
0 b 15  1.234
0 a 16  12345.6789
1 a 17  12345.6788
1 a 18  12345.6787
1 a 19  -2222
0 b 20  -2223
0 b 21  -1e1
1 b 22  -1e-1
1 b 23  -2e2
0 b 24  -2e-2
0 b 25  -3e3
0 b 26  -3e-3
0 b 27  123345.123234
0 a 28  123345.123235
0 a 29  123345.123233
0 a 30  -4.6
0 b 31  -4.7
0 b 32  -4.8
1 b 33  -4.5e1
1 a 34  1.23
1 a 35  2.345
1 b 36  345.456
1 a 37  45678.67567
0 b 38  23423422.34234234
1 a 39  123124123
[download]

Note: the minus sign in [1,-2] means reverse order. Ascending order would be a positive number. You can choose ascending order or reverse order for any of the 4 fields. And you can have as many fields as necessary.