my $n = $x > $y ? $x : $y;

##</code><code>##

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

##</code><code>##

use List::Util qw(max);
my $n = max($x, $y);