++$seen[ ord chop $buf ] while length $buf;