if ( /REGION/ )
{
  if ( /TOTAL/ )
  {
    # Finish with that section
  }
  else
  {
    # Start with that section
  }
}
else
{
  # Regular data line .. handle normally (see below)
}

##</code><code>##

my %SalesReps = { 7A => \@steve, 7 => \@sue, 8 => \@mike };

##</code><code>##

my $ThisArray = $SalesRep{ $region }

##</code><code>##

unshift ( @{ $ThisArray }, $region, $reg_num, @name );