shuffle an array randomly

while ( @old )
   { push ( @new , splice ( @old , rand @old , 1)); }     # randomly pick element for swapping