Select Code to Download

$name = sprintf "%s%s",'descriptor_array',$array_no;
print @$name;

my @descriptor_array1 = ( 1, 2, 3, 4 );
my @descriptor_array2 = ( 1, 2, 3, 4 );
...
print @$name;   # prints "array_dummy!

}