foreach (@data){
   foreach my $i (@dst){ 
    $count{$i}++;
   }
   foreach my $j (@service){
    $count{$j}++;
   }
  }