@sorted_els = map  { $_->[0] }
              sort { $a->[1] <=> $b->[1] }
              map  { [$_, complex_calculation($_)] }
              @list;