my $array;
my @queue;

#gen objects
push @$array, SOMECLASS->new() for 1..100;

#generate random ordered queue
push @queue, splice @array, int rand @array, 1 while @array;

#process
$_->dosomething () foreach @queue;