@list = sort { $a <=> $b } @list;
$max = $list[$#list];