sub shuffleArray
{
 my @array = @_;
 my $length = @array;

 for(my $i = 0; $i < $length - 1; $i++)
 {
   my $random = int rand($length -1);
   if ($i eq $random){$i--;}
   else{@array[$i,$random] = @array[$random, $i];}
 }
 my $random = int rand($length -2);
 @array[$random,$length -1] = @array[$length -1,$random];
  
 return @array;
}