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" ;}

##</code><code>##

$main::test

##</code><code>##

  @test = %test = 1 ;

##</code><code>##

  $main::test
  @main::test
  %main::test

##</code><code>##

  my $name = 'main::test' ;
  
  my $ref = *{$name}{SCALAR} ;
  print "$ref\n" ;

##</code><code>##

  SCALAR(0x1a6f080)

##</code><code>##

if (defined $val && defined *ENTRY{SCALAR}) {