#!/usr/bin/perl -w

sub max
{
    @_ || return undef;
    my $maximum = shift;
    foreach $x (@_)
    {
	$maximum = $x if ($x > $maximum);
    }
    return $maximum;
}


print "<< undef >>\n" if (!defined(max()));

print max(1,8,2,5),"\n";

my @t = (2,0,-6,'aa',7,-78);
print max(@t),"\n";

print max(2,0,6,97.2,0,-78.5),"\n";