my $max = $list[0]; $_ > $max and $max = $_ for @list;