Select Code to Download

%events = ( 1 => { '10/27/2002' => 1,
                   '09/15/2004' => 2,
...
            2 => { '02/17/2001' => 1,
                   '12/05/2003' => 2 },
            3 => .....                 );

my $date_count = keys %{$events{4}};