Select Code to Download

29  '0,wupra00a0537'
30  '31,wppra00a0513'
...
33  '0,wupwa07a0663'
34  '0,wdpwa00a0013'
35

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

147  '0,wuprm00a0539'
148  '0,wuprm00a0539'
...
151  '0,wupra00a0532'
152  '15,wppra01a0015'
153  '22,wppra01a0095'