if ($i < $j) {
  my $t = $a[$i];
  $a[$i] = $a[$j];
  $a[$j] = $t;
}