my $games=  $data_kurz->{league}[0]{events}{event};

for my $game (@$games) {
    ...
};