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

my @srcs = sort keys %count;