my $m = ( $xa>$xb? ($xa>$xc?0:2): ($xb>$xc?1:2) );