foreach my $exportZeile(@export){ $KopieExport[$#KopieExport +1] = $exportZeile; } foreach my $inputZeile(@input){ $KopieInput[$#KopieInput +1] = $inputZeile; }