Let me apologise straight out for ignoring your existing code, but here is one way to get your desired output, from the data you supply... 
#!/usr/bin/perl -w
use strict;

my %data;
my ($src, $dest, $dst_port);

while (<DATA>) {
    chomp;
    my ($src, $dest, $dst_port) = (split, $_)[5,9,10];
    $data{$src}{$dest}{$dst_port}++;
}

for $src (sort by_ip keys %data) {
    for $dest (sort by_ip keys %{$data{$src}}) {
        for $dst_port (sort keys %{$data{$src}{$dest}}) {
            print "$src $dest $dst_port $data{$src}{$dest}{$dst_port}\
+n";
        }
    }
}

sub ipto32bit {
    my ($ip, $c, $d, $e, $f);
    $ip = shift;
    ($c,$d,$e,$f) = split(/\./,$ip);
    return ($c << 24) + ($d << 16) + ($e << 8) + $f;
}

sub by_ip {
    ipto32bit($a) <=> ipto32bit($b);
}

__DATA__
%PIX-4-106023 Deny udp src inside 1.1.1.1 1161 dst outside 3.3.3.3 53 
+by access-group inside_access_in
%PIX-4-106023 Deny tcp src inside 1.1.1.1 1637 dst outside 4.4.4.4 80 
+by access-group inside_access_in
# etc... rest omitted for brevity

[download]
Which prints.. 
1.1.1.1 3.3.3.3 53 1
1.1.1.1 4.4.4.4 80 2
1.1.1.1 7.7.7.7 53 1
1.1.1.1 9.9.9.9 443 1
1.1.1.1 9.9.9.9 53 1
1.1.1.1 9.9.9.9 80 1
2.2.2.2 3.3.3.3 80 2
2.2.2.2 4.4.4.4 80 1
2.2.2.2 7.7.7.7 80 2
5.5.5.5 3.3.3.3 1433 1
5.5.5.5 6.6.6.6 161 1
5.5.5.5 6.6.6.6 443 1
5.5.5.5 6.6.6.6 80 1
8.8.8.8 4.4.4.4 80 1
8.8.8.8 6.6.6.6 80 1
10.10.10.10 4.4.4.4 80 1
10.10.10.10 6.6.6.6 80 1

[download]

Note that I have used split, because your data seems to be well formed. It may or may not be appropriate in your case. The above is not necessarily a serious suggestion, but is given more in the spirit of TIMTOWTDI :)

Cheers,
Darren :)

In reply to Re: looping through an array by McDarren
in thread looping through an array by Secode

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.