$VAR1 = {
           '20120317' => {
                     'sort_date' => 20120317,
                     'file_base' => 'Brew_Pub_Populaire',
                     'stoker' => 'Tom Organizer',
                     'date' => 'March 17',
                     'name' => 'Brew Pub Populaire',
                     'dist' => '100',
                     'email' => 'otherrider@example.com',
                     'cred' => 'RUSA',
                     'start' => 'Cornelius Pass Roadhouse'
                   },
           '20120331' => {
                     'sort_date' => 20120331,
                     'file_base' => 'Molalla_Foothills',
                     'stoker' => 'Michael Fastrider',
                     'date' => 'March 31',
                     'name' => 'Molalla Foothills',
                     'dist' => '200',
                     'email' => 'cyclo@example.com',
                     'cred' => 'ACP',
                     'start' => 'Canby, OR'
                   }
         };


##</code><code>##

  [% FOREACH brevet =  brevets  %]
     brevet.key [% brevet.key %]
     brevet.val [% brevet.value %]
     brevet.val.name [% brevet.value.name %]
     brevet.val.date [% brevet.value.date %]
     brevet.val.dist [% brevet.value.dist %]
     brevet.val.start [% brevet.value.start %]
     brevet.val.stoker [% brevet.value.stoker %]
  [% END %]


##</code><code>##

my %tt_food;

foreach my $key ( sort { $brevet_config{$a}{sort_date} <=> $brevet_config{$b}{sort_date} }  keys %brevet_config ) {
    
    $tt_food{$brevet_config{$key}{sort_date}} = $brevet_config{$key};
}

my $vars = {
    brevets => \%tt_food,
};

$template->process( 'schedule.tt2', $vars ) or die $template->error();