my $max = (... list ...)[-1];