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