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