Well, you could do something like:

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";
[download]

But it might be cleaner to switch to using IO::File.

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg