for my $fileIdx (1 .. 10) { my $logName = "log$fileIdx.txt"; open my $logOut, '>', $logName or die "Can't create $logName: $!\n"; ... }