sub fisher_yates_shuffle {
                  my $array = shift;
                  my $i;
                  for ($i = @$array; --$i; ) {
                      my $j = int rand ($i+1);
                      next if $i == $j;
                      @$array[$i,$j] = @$array[$j,$i];
                  }
              }