foreach my $key (keys %Hash) {
 push @hasharraylengths, scalar @{$Hash{$key}};
}