my $n = (sort {$a <=> $b} $x, $y)[-1];