Alternative:

my $max   = shift(@list);
my $max_c = complex_calculation($max);

for (@list) {
    my $c = complex_calculation($_);
    if ($c > $max_c) {
        $max   = $_;
        $max_c = $c;
    }
}
[download]