Select Code to Download

use List::Util 'max';
my $largest_val = max map { expensive_func($_) } @items;

my $largest_item = argmax { expensive_func($_) } @items;

my ($largest_item, $largest_val) = argmax { expensive_func($_) } @item
+s;

sub argmax(&@) {
    my $index = undef;
...
    }
    return wantarray ? ($index, $min) : $index;
}