either

$length = $#{$Hash{$key}}+1; # I think will work

# or 

$length = @{$Hash{$key}}; #I know will work
[download]

you must dereference the arrayref
                - Ant