use List::Util 'max';

print max(@list), "\n";