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

print "Length: $length\n";