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