Select Code to Download

$max_el = max { complex_calculation($_) } @list;

$max = reduce { complex_calculation($a) > complex_calculation($b) ? $a
+ : $b };