use List::Util qw/max/;
my $highestvalue = max @holdmutual;
printf "%.3f", $highestvalue;