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]