$seen{$_}++ for split // => $buf;