Select Code to Download

@unsort = sort { int(rand(3)) - 1 } ('aaa','yyy','fff','bbb','eee','dd
+d','fff','jjj','iii','kkk','zzz','xxx','vvv','sss');
print "T\tA\tB\tA<>B\tT<>A\tT<>B\tTA<>TB\tRESULT\n";
@sort = sort { &sort_alpha_wrap('jjj',$a,$b); } @unsort;
...

   return $cmp_shift;   
}