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


##</code><code>##

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

my @srcs = sort keys %count;