use strict;
use Carp;
open (File_1,">c:/File1.txt") || die "Can't open File1 for writing\n";
open (File_2,">c:/File1.txt") || die "Can't open File2 for writing\n";
my $variable = 1;
my $fileName = "File_".$variable;
print $fileName "Hello\n";

##</code><code>##

Can't use string ("File_1") as a symbol ref while "strict refs" in use at….