my $size = @{$HoA{$key}};