Typeglobs vistos como Hashes

Perl dispone de una sintáxis especial para acceder a un ''typeglob'' como si fuera un ''hash'' indexado en el tipo de variable. Las siguientes parejas de asignaciones son equivalentes:

$scalar_ref = *variable{SCALAR} # igual a $scalar_ref = \$variable
$array_ref  = *variable{ARRAY}  # igual a $scalar_ref = \@variable
$hash_ref   = *variable{HASH}   # igual a $scalar_ref = \%variable
$sub_ref    = *variable{CODE}   # igual a $scalar_ref = \&variable

Podemos usar esta sintáxis para acceder a la entrada de fichero del ''typeglob'':

$handle_ref = *variable{IO}

Veamos un ejemplo con el depurador:

  DB<1> $a = 4; @a = 1..5
  DB<2> $rsa = *a{SCALAR}
  DB<3> x $rsa
0  SCALAR(0x8450e04)
   -> 4
  DB<4> open a, "matrixP.pl"
  DB<5> $rfa = *a{IO}
  DB<6> x $rfa
0  IO::Handle=IO(0x847db4c)
  DB<7> $b = <$rfa>
  DB<8> p $b
#!/usr/bin/perl -w

Ejercicio 4.15.5   Dada la asignación:

$h = *$t{HASH};

¿Cuál es el tipo de $t? ¿Que queda en $h?