The sort keys %seen offered here would render the outputs sorted, not in the order they were originaly found. This may or may not be suitable.

You can either keep a separate array of all unique items in the order discovered, or you can look at Tie::IxHash for an already-bundled solution.

--
[ e d @ h a l l e y . c c ]