#!/usr/bin/perl

sub MAX {
	local($max) = pop(@_);
	foreach $foo (@_) {
		$max = $foo if $max < $foo;
	}
	$max;
}

$bestday = &MAX($mon,$tue,$wed,$thu,$fri);
