my ($month, $day, $year) = split /\//, $hash{Date};

##</code><code>##

my $season = get_season( $month, $day );
$archive{2003}{4}{15} = ( High => $hash{High},
                          Low  => $hash{Low}, 
                          Wind => $hash{Wind},
                          Bar  => $hash{Bar},
                          Seas => $season );