sub max { my $max=shift; $max < $_ and $max = $_ for @vars; return $max; }