my  $max  = (expr)[0];   # rather than
my ($max) = list_expr;