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