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