for my $hashref ( keys %$ref) { $hist{$_}++ for keys %$hashref; }