while (...) {
   push @loop, { ID => $id, DATUM => $datum, SPIELER => $spieler }
}
$param{SPORTART} = \@loop;