my @list = sort ($a, $b, $c);
print $list[$#list];