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