@new_list =
    map_sort { $a->[1] <=> $b->[1] }
    map      { [ $_, expensive_function( $_ ) ] }
    @old_list;