# indexed array
@array = sort { (-1,1)[int rand 2] } @array;

# or trinary alternative
@array = sort { int rand 2 ? 1 : -1 } @array;


##</code><code>##

#!/usr/bin/perl -w

use strict;

my @array = qw( peach banana mango orange apple cherry );
my %result;

$, = "\t\t";
$\ = "\n";

for(1..10000) {
	
	@_ = sort { (-1,1)[int rand 2] } @array;

	for(0..$#array) { $result{ $_[$_] , $_ }++ }
	
}

print '' , (0..$#array);

for my $fruit ( @array ) {
	
	print $fruit , map { $result{ $fruit , $_ } } (0..$#array);
	
}

##</code><code>##

        0     1     2     3     4     5
peach   2982  3026  2010  1095  573   314
banana  2961  2973  1960  1172  602   332
mango   1996  2004  2333  1866  1100  701
orange  1156  1116  1914  2558  1999  1257
apple   602   561   1162  2030  3171  2474
cherry  303   320   621   1279  2555  4922