my $i;
foreach $i (@array) {
    print "$i\n";
    system("echo $i");

my $queryextstatus = "SELECT value_text FROM dynamic_field_value
WHERE object_id = $i
AND field_id = 80";

my $sth = $dbh->prepare($queryextstatus);
        $sth->execute();
while ( @row = $sth->fetchrow_array ){
    $ticketextstatus = " @row";

}

open (DATEI, ">>status.txt" ) or die $!;
   print DATEI $ticketextstatus;
close (DATEI);




open (DATEI, "status.txt") or die $!;
   my @daten = <DATEI>;
close (DATEI);

my @array;
my $a;
push (@array, @daten);
print "Anzahl: ".scalar(@array)."\n";
for $a(@array){

}

}