sub sort_leftof {
    my $x1            = shift;
    my $x2            = shift;
    my $t_order        = shift;
    my $nt_order    = shift;
    
    if( $x1 < 500 and $x2 < 500 ) {
        $x1 < $x2;
    }

} # /sort_leftof