@sorted = sort{$a <=> $b}($x, $y, $z);
print $sorted[-1];