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