update:
DB<1> use List::MoreUtils "uniq"; print uniq qw(a a a a b c c a a d +e e e e) abcde [download]
Cheers Rolf
In reply to Re^2: reduce like iterators by LanX in thread reduce like iterators by LanX