Select Code to Download

  foreach($_){

   my ($num,$date,$time,$fw,$type,$action,$alert,$int,$dir,$proto,$src
+,$dst,$service,$sport,$len,$rule) = (split /;/,$_);

   my (undef, undef, undef, undef, undef, undef, undef, undef, undef, 
+undef, undef, $dst, $service, undef, undef, undef) = split /;/; # spl
+it() works on $_ if only one argument is given.

   my ($dst, $service) = (split /;/)[11, 12];

    %hash = (dest => $dst, service => $service); 
    foreach my $key (keys %hash){
...
    $count{$val}++;
    } #close foreach
} #close while

    $count{$_}++ for $dst, $service;
}

foreach my $key1 (keys %count){
  print "$key1 appears $count{$key1} times\n"; 
} #close foreach

print map "$_ appears $count{$_} times\n", keys %count;

#!/usr/bin/perl -w
use strict; 
...
}

print map "$_ appears $count{$_} times\n", keys %count;

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$