in reply to getting the number of fields in hash per key
It might be bad form (I'd like other opinions), but I habitually do this:
print 0+(keys %h); [download]
apologies - read it too quickly. Same idea then,
0+@{$h{'key'}} [download]