push @{$hash{$id}}, scalar @charcounts; #### @values=@{$hash{$id}};