use strict;
use Carp;

my @files;
open ($files[0], ">c:/File1.txt") 
  || die "Can't open File1 for writing\n";

open ($files[1], ">c:/File1.txt") 
  || die "Can't open File2 for writing\n";

my $variable = 0;

print { $files[0] } "Hello\n";