my %HoA;

for my $key ( keys %HoA ) {
        // gives me the correct first value in this key
        my $value = $HoA{$key}[0];
        // does not give me the correct number of values in this key
        my $size = length($HoA{$key});
}