file_handle_array.pl

#!/usr/bin/perl

my $fh_array;

for my $file (1 .. 4){
    open my $fh, '>> ', 'teste' . $file or die $!;
    push @$fh_array, $fh;
}

for my $write (@$fh_array){
    print $write "Arquivo";
}

for my $closer (@$fh_array){
    close $closer;
}