use List::Util 'max';
...

my $max = max( @list );