open(my $FILE_A,">","a.txt") || ...;
open(my $FILE_B,">","b.txt") || ...;
my @FH=($FILE_A,$FILE_B);