Select Code to Download

Select or download this

#!/usr/bin/perl 
use strict;
use warnings;
...
# Handles close automatically when they go out of scope
# Output to terminal a dump of %results so operator can see internal s
+tructure
print Dumper \%results;

Select or download this

$VAR1 = {
          'q569' => {
                      'sum1' => 1989,
...
                                 ]
                    }
        };

Select or download this

|M737|5555|Jun 05,2010|753|4562|
|M737|5555|Jun 05,2010|123|4562|
|Q569|5555|Jun 05,2010|584|4562|
...
|M729|5726|Jun 18,2010|428|4562|
|M729|5147|Jun 20,2010|918|4562|
|M729|5632|Jun 01,2010|938|4562|

Select or download this

|CSED Form|OrderNumber|Date|Total Documents|Total Pages|
|M729|5652|Jun 11,2010|198|4562|
|M729|5876|Jun 15,2010|298|4562|
...
|Q569|5555|Jun 05,2010|215|4562|
|Q569|5555|Jun 05,2010|845|4562|   
There were 4 q569s and total of 2nd to last row was 1989 and total of 
+last row was 18248