open(FH, "<blubber.txt") or die "Fehler beim oeffnen/anlegen: $!";
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 $!;
close (FH)or die $!;