sub max {
my($max) = shift;

foreach (@_) {
$max = $_ if $max < $_;
}
$max;
}