if ($x2 < $x) {
    my $tmp = $x;
    $x=$x2;
    $x2=$tmp;
  }

##</code><code>##

  ($x2 < $x) and ($x, $x2) = ($x2, $x);  # Swap $x and $x2