#!/usr/bin/perl 
#
 use strict;
 use warnings;
 
 my @array=0..100;
 @array=sort { (-1,0,1)[rand 3] } @array;
 print join(',',@array),"\n";