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

##</code><code>##

my @descriptor_array1 = ( 1, 2, 3, 4 );
my @descriptor_array2 = ( 1, 2, 3, 4 );
my @descriptor_array3 = ( 1, 2, 3, 4 );
my @descriptor_array4 = ( 1, 2, 3, 4 );
..........................

my (@array_dummy1,@array_dummy2,@array_dummy3);

foreach my $array_no(@insomearray) {

no strict 'refs';

$name = sprintf "%s%s",'descriptor_array',$array_no;
print @$name;   # prints nothing!

$name = sprintf "%s%s",'array_dummy',$array_no;
print @$name;   # prints "array_dummy!

}