my $package = "main";
my $var = "a";
my $type = "ARRAY";
no strict;
if (my $glob = ${$package."::"}{$var}) {
  if(my $ref = *{$glob}{$type}) {
    print Dumper $ref;
  }
}