Select Code to Download

    my($x,$y,$z) = (11, 9, 12);
    print [[$x=>$y]->[$y<=$x]=>$z]->[$z<=[$x=>$y]->[$y<=$x]];