Select Code to Download

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

my %count; 
foreach $1 ( @srcs ) { 
...
} 

my @srcs = sort keys %count;