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;
}