open(OUTDATEN, ">ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";
for my $entry(@data)
{
    print OUTDATEN join(';',@$entry),"\n";  #ausgabe in datei
}
close (OUTDATEN)or die $!;