Select Code to Download

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

foreach my $src ( keys %hash ) {
    foreach my $sport ( keys %{$hash{$src}} ) {
...
               $src, $sport, $hash{$src}{$sport};
    }
}