my $name = 'main::test' ;

  if (defined *{$name}{SCALAR}) { print "\$$name\n" ;}
  if (defined *{$name}{ARRAY}) { print "\@$name\n" ;}
  if (defined *{$name}{HASH}) { print "\%$name\n" ;}