while (<FILE>){ 
     my ($src,$sport) = (split /;/)[9,12];
     $hash{$src}{$sport}++;  
}