(sort {$a <=> $b} @x)[-1,0]

##</code><code>##

max(@x)