Select Code to Download

my @descriptor_array = (
   [ 1, 2, 3, 4 ],
...
    my $array = $descriptor_array[$array_no];
    print("$array_no $array @$array\n");
}

0 ARRAY(0x814ec28) 1 2 3 4
3 ARRAY(0x814f8e8) 4 5 6 7