Select Code to Download

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

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

$hash{$src} = $src;

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

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

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