I thought

%hash = ();
[download]

would work, but it's not. And yes, I am using strict. The code is a bit long, but an abridged version is:

use strict;
use warnings;

my %hash;

my @sets = qw(set_a set_b);

foreach my $set ( @sets ) {
    &find_start($set); #defines start and end points to grab data
    &fill_hash(); # fill 'er up
    &print_hash(); #print out
    &clean_hash(); #clean it out
}
[download]

The &find_start() looks throught the 6000 lines of text, and decides which line to start grabbing data, and which line to stopt at, based on the value of $set. I thought maybe I was grabbing the wrong stuff, but everything "adds up". Pun intended.