Select Code to Download

my $max_event;
map {$max_event = $_ if $_ > $max_event} keys %{$hash{1}};

%hash = (
          1 => {
                  1 => "", #dynamically created
...
          },
          2.... # iteration
);