#!/usr/bin/perl

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

sub max {

	my $max=shift(@_);
	foreach $foo(@_){
		$max= $foo if $max < $foo;
	}
	return $max;

	}


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

print $bestday;