#!/usr/bin/perl

use strict;
use warnings;
use Log::Log4perl::Appender::File;

my $app = Log::Log4perl::Appender::File->new(
        filename  => 'new_file.log',
        mode      => 'append',
        autoflush => 1,
        syswrite  => 1,
        binmode   => ":utf8",
);

my $file = $app;
for $file ('some_other') {
        while ($app->file_switch("$file.log")) {
                 require "$file.pl";
        }
        print "$file.log\n";
}