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

# or 

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