my($src, $dst, $rule1) = (split /,/)[1];

##</code><code>##

my $src = (split /,/)[0];

##</code><code>##

$hash{$src} = $src;

##</code><code>##

$hash{$src}++; # count occurrences

##</code><code>##

next if $src =~ /$hash{$src}/;

##</code><code>##

foreach (keys %hash)
{
  print "$_ was seen $hash{$_} times\n";
}