This may not be the fanciest solution, but it seems to work for me:

my $number_of_elements = 5; # arbitrary, can be anything
my @order = ();
my @base = (0 .. $number_of_elements - 1);

srand;
push @order, splice(@base, rand @base, 1) while (@base);
[download]