Eliminating the hashes chops it down to 24, but of course it won't run with strict refs in use.

#23456789_123456789_1234
grep$$_<2,grep{!$$_++}@_
[download]

-Matt