I'm trying to sort date that looks like this:

29  '0,wupra00a0537'
30  '31,wppra00a0513'
31  '0,wupra00a0535'
32  '0,wuprd02a0089'
33  '0,wupwa07a0663'
34  '0,wdpwa00a0013'
35
[download]

my code looks like this:

my @array = ();
         @array = map   { $_->[0] }
                sort    { $b->[1] <=> $a->[1] }
                map     { [ $_, /.+,/ ] } @cpu_lt_40
[download]

I want to sort by the number in descending order and the sort result is (partial):

147  '0,wuprm00a0539'
148  '0,wuprm00a0539'
149  '28,wppra02a0015'
150  '24,wppra01a0016'
151  '0,wupra00a0532'
152  '15,wppra01a0015'
153  '22,wppra01a0095'
[download]