my ($max) =
    map $_->[0],
    reduce { $a->[1] > $b->[1] ? $a : $b }
    map [ $_, complex_calculation($_) ],
    LIST;