Las tablas de tablas son también sencillas de manejar, de forma muy parecida a los arreglos de arreglos.
my %blosum62 = ( ## declaración con asignación explícita
'A' =>
{
'A' => -4,
'R' => -1,
...
'X' => -1
}
...
'X' =>
{
'A' => --,
'R' => -1,
...
'X' => -1
}
);
my %tabla;
for($i=0;$i<5;$i++) ## asignación elemento a elemento desde bucles
{
for($j=0;$j<10;$j++)
{
$tabla{$i}{$j} = $i * $j;
}
}
for $i ( 1 .. 10 ) ## asignación de subtablas enteras
{
$tabla[$i] = { %subtabla };
# tabla[$i] contiene una referencia a una tabla
}