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