perl file handler array

@FileArray;
@FileHandles;
push @FileArray, "test1.txt";
push @FileArray, "test2.txt";
$count = 0;
foreach $f (@FileArray)
{
    my $fh;
    open($fh, ">".$f) || die("cant open file:".$f);
    $FileHandles[$count] = $fh;
    $count++;
}
foreach $fh (@FileHandles)
{
    print $fh "this is a test";
}