$ perl -e'for(1..759){push @x,rand}; @x=sort {$count++; $a <=> $b} @x; print "$count\n"'
6783