my $max = 0;
$max < $_ and $max = $_ for @a;