Select Code to Download

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

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