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

##</code><code>##

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