sub max { $_[ $_[0] < $_[1] ] } #### my $max_xy = ($x,$y)[$x<$y]