for $i ($#array..0) {
  my $j = rand($i);
  @array[$i,$j] = @array[$j,$i];
}