Just use sort:

  my @my_bag = qw(1 2 3 4 5 6 7 8 9 10) ;
  my @random = sort{ (-1,1)[rand(2)] } @my_bag ;
  print "@random\n" ;
[download]

Just to play:

  my @same_order = sort{ 0 } @my_bag ;
  my @reverse = sort{ 1 } @my_bag ;
[download]

Graciliano M. P.
"The creativity is the expression of the liberty".