my $length = @{$t_type{'a'}{'range'}{'disallowed'}};

print "Length: $length\n";

##</code><code>##

print "$_\n" foreach (@{$t_type{'a'}{'range'}{'disallowed'}})