my ($thr1) = threads->create(sub{
                             foreach my $exportZeile(@export){
                             $KopieExport[$#KopieExport +1] = $exportZeile; 
                             }
                             }); 

my ($thr2) = threads->create(sub{
                             foreach my $inputZeile(@input){
                             $KopieInput[$#KopieInput +1] = $inputZeile; 
                             }
                             });