%seen = (); foreach $item (@srcs) {     push(@uniq, $item) unless $seen{$item}++; }
print "@uniq\n";