use strict ; use warnings ;

  *SUE = \127 ;

  my $a = *SUE ;
  my $b = \*SUE ;

  printf "sex(\$a) = %10s and \${\*{\$a}{SCALAR}} = %d\n", sex($a), ${*{$a}{SCALAR}} ;
  printf "sex(\$b) = %10s and \${\*{\$b}{SCALAR}} = %d\n", sex($b), ${*{$b}{SCALAR}} ;

  sub sex {
    my ($thing) = @_ ;
    my $sex = ref($thing) ;
    return $sex ? "ref:$sex" : ref(\$thing) ;
  } ;