foreach $date ( @weather_days ) {
    $weather_archive{$date->{Year}}{$date->{Month}}{$date->{Day}} = 
        ( $date->{High},
          $date->{Low},
          $date->{Season},
          $date->{Wind},
          $date->{Bar} );
}