##
my @array = ();
@array = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [ $_, /.+,/ ] } @cpu_lt_40
##
##
147 '0,wuprm00a0539'
148 '0,wuprm00a0539'
149 '28,wppra02a0015'
150 '24,wppra01a0016'
151 '0,wupra00a0532'
152 '15,wppra01a0015'
153 '22,wppra01a0095'