my $template;
while ( I am looping through Sections) {
  next unless first half of name is 'until';
  next unless date in second half of name hasn't passed yet;
  $template = this_Section->{TEMPLATE};
  last;
}

##</code><code>##

foreach $ini_sect ( sort keys %ini_file ) {
  %$ini_sect = %{ $ini_file{$ini_sect} };
}

##</code><code>##

foreach $ini_sect ( keys %ini_file ) {
  %$ini_sect = %{ $ini_file{$ini_sect} };
}