I thought
%hash = ();
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
}
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.