open (my $out, '>', $write_file) or die "Kann $write_file nicht erzeugen: $!";
foreach (@ARGV) {
    @array_result = work_with_file ($_, $out);
}
close $out;