Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
0;1;2;3;4;5;6;7;8;9;10;onedest;http;192.168.47.3
0;1;2;3;4;5;6;7;8;9;10;onedest;http;192.168.47.3
0;1;2;3;4;5;6;7;8;9;10;onedest;ftp;192.168.47.3

twodest was seen 1 times
http was seen 4 times
ftp was seen 1 times
onedest was seen 4 times