I'd recommend using the IO::File package. You can easily use it to handle an array of filehandles.
For example:

my $fh = IO::File->new(">$filename");
print $fh "Hello\n";
close($fh) or die "Can't close\n";
[download]

--- So Fast, So Numb