foreach ($ref) {
    $hist{$_}++ for $_;
}