Select Code to Download

my @queue = ( [$action1, $action2, $action3], [$action4, $action1, $ac
+tion3], ...);
# or possibly;
my @queue =  ( [1, 2, 3], [4, 1, 3]);
# where [1, 2, 3] is a reference to an array of subscripts on an array
+ of actions defined somewhere else.

0  ARRAY(0x80359f90)
   0  1
   1  2
...
   1  3
   2  0
   3  9

my $action_ref = shift @queue;