I used Data::Dumper to show what was happening on lines 70 and 99.

It looks like my subroutine is not getting the correct values. For example everything from the ip address till $VAR4 is correct. However my numeric comparison for $VAR4 is showing values from the $VAR2 comparison. 


66.118.133.154 sent the following virus's a total of 19 times:
$VAR1 = \{
            'sender' => {
                          'jdillon@karaco.com' => 1,
                          '0000774243@nocmailsvc001.allthesites.org' =
+> 1,
                          'se56092d.098@gwia.ci.tampa.fl.us' => 1,
                          'owner@zedo[2].txt' => 1,
                          'pobonline-feedback-138@lb.bcentral.com' => 
+1,
                          'al464718@aol.com' => 1,
                          'info@ebsengineering.com' => 1,
                          'abuse@gov.us' => 1,
                          'bids@enviro-logical.com' => 1,
                          'postmaster@ussurveyor.com' => 1,
                          'mmeyers@innet.com' => 1,
                          'rjnickson@netzero.net' => 1,
                          'owner@advertising[1].txt' => 1,
                          'fraysier@tds.net' => 1,
                          'dopicoproperties@msn.com' => 1,
                          'hussdrilling@earthlink.net' => 1,
                          'affiliatedsupply@hotmail.com' => 1,
                          's706moss@earthlink.net' => 1,
                          'arnolde@hillsboroughcounty.org' => 1
                        },
            'virus' => {
                         'Worm.SomeFool.P Intercepted' => 3,
                         'Worm.SomeFool.PIntercepted' => 16
                       }
          };
$VAR2 = \{
            'Worm.SomeFool.P Intercepted' => 3,
            'Worm.SomeFool.PIntercepted' => 16
          };


65.207.129.252 sent the following virus's a total of 16 times:
$VAR3 = \{
            'sender' => {
                          'c@0ie.ee' => 1,
                          'damian.sandoval@brooks.af.mil' => 1,
                          'ybev_@[ecxab.7' => 1,
                          'bp-es0es0cq.@n' => 1,
                          'e75@0.9' => 1,
                          'gb.f@5' => 1,
                          'ammer@langley.af.mil' => 1,
                          'bill_dougherty@urscorp.com' => 1,
                          'fl.@k.' => 1,
                          '_c@ntriomin.gn-' => 1,
                          '7k@7f9.c6' => 1,
                          'pdmeeks@access.mountain.net' => 1,
                          '/ba-c@-da.id.je' => 1,
                          '2/6@0.d' => 1,
                          'bleiter@huntconstructiongroup.com' => 1,
                          'e@h1.5' => 1
                        },
            'virus' => {
                         'Worm.SomeFool.ZIntercepted' => 7,
                         'Worm.SomeFool.Z Intercepted' => 9
                       }
          };
$VAR4 = \{
            'Worm.SomeFool.P Intercepted' => 3,
            'Worm.SomeFool.PIntercepted' => 16
          };

[download]

In reply to Re^3: Errors with sorting hashs by red-beard
in thread Errors with sorting hashs by red-beard

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.